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MODULE RM3CREATE (LANGUAGE (BLISS32) , 
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RMSCREATE 16-Sep-1984 01:39:47 AX-11 Bliss-32 V4.0-742 
yoas000 122868-1 382 at eee RMS -SREIRM CREATE .B32;1 
; 9 00 8 1 S44 
; 0 00 1! 
$ 1 4 : ! FACILITY: RMS32 INDEX SEQUENTIAL FILE ORGANIZATION 
; é 00 ¢ 1 ! ABSTRACT: 
; «634 00 22 This module erccorm the SCREATE function for indexed 
: 5 0034 1! sequential files 
3 6 0035 1! 
; 7 00 § 1 ! ENVIRONMENT: 
; «638 0037 1! 
; boas 1! VAX/VMS OPERATING SYSTEM 
; 40 4 9 1! 
>; «41 040 1 !-- 
; tg 0041 1 
; §& 94 1! 
: 646 0045 1 ! AUTHOR: Maria del C. Nasr CREATION DATE: 21-Sep-1982 
3; 65 0044 1! 
; 646 0045 1! 
; 47 0046 1 ! MODIFIED BY: 
; 48 0047 1! 
; & 0048 1! v03-031 pastes Ron Schaefer 30-Mar-1984 
3 50 0049 1! Fix STV value on error paths for area allocation and 
; 23 Bees : } RMS$_RPL and RMS$_WPL errors. 
; oe 3036 1! V03-030 SHZ0002 Stephen H. Zalewski, 27-Feb-1984 
; + 0055 1! f you allocate a BDB, you MUST increment the available 
3 2? Boe : local buffer caunt (1FBSW_AVLCL). 
; wz 0056 1! v03-029 $HZ0001 Stephen H. Zalewski 15-Dec-1983 
3 28 et EA : Correct error handling when doing XAB processing. 
: 60 0059 1! v03-028 KPL0001 Peter Lieberwirth Je-Rey tree 
3 2 bees : Initial pass at implementing the journaling of S$CREATE. 
: 63 0062 1! V03-027 RASO152 Ron Schaefer 29-Apr-1983 
: 664 0063 1! Update MCNO012 to remove the weraing messege. 
: & 0064 1! Turn the XAB reference from a GLOBAL REGISTER to a 
; 66 0065 1! REGISTER parameter. 
ee i 0066 1! 
5; & 0067 1! V03-026 MCNO012 Maria del C. Nasr 07-Apr-1983 
3 $? once : Modify calling sequence to RMSEXTENDO to saeeh new Linkage. 
; 0070 1! v03-025 Py pel aria del C 24-Mar-1983 
aye. 0071 1! Change Linkages io the GET spc “end RETSPC routines among 
ee 0072 1! others. Also get t rid of prologue and journaling check 
3 es th : introduced by MCNO0007 Stace it is not useful. 
; = 0075 1! v03-024 MCNO010 Maria del C. Nasr 21-Mar-1983 
“Pee ie 4 0076 1! ix some local Linkages that were incorrectly defined 
: 78 0077 1! by MCNO009. 
; 0078 1! , 
: 80 0079 1! v03-023 MCNO009 Maria del C. Nasr 07-Mar-1983 
; 3 Bost ’ } Reorganize Linkages. 
; § 0082 1! v03-022 MCNO009 Maria del C. Nasr 07-Mar-1983 
; 684 0083 1! lee MRS and bucket size are not specified, RMS should 
i ae 0084 1! use minimum record size to calculate bucket size of data 
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$ 0085 level. Also, change maximum bucket size to 65 and use 
‘ 09 8 symbolic name for it. 
9 088 v03-021 DAS0001 David Solomon 01-Feb-1983 | 
0 B08 Add support for 64-bit aery keys (IN8 and BN8); namely, 
1 090 add a case-value in routine CHECK_KEY_PARMS to validate 
. 94 the key size. 
4 $098 V03-020 MCNO008 Maria del C. Nasr 31-Jan-1983 
0094 Under certain error conditions RMS$CREATECOM exits RMS 
0095 without returning status to RMSCREATE3B. RMS then bugchecks 
096 because the space allocated for the key and area tables is 
097 not returned. Fix code so that this condition is eliminated. 
0098 Allocate table, but copy information back to XAB so that it 
0099 can be returned before calling RMSCREATECOM. Unfortunately, 
2 Biot this change requires extra passes through the XAS chain. 


v03-019 MCNO007 Maria del C. Nasr 25-Jan-1983 
Do not create the file if the prologue is 1 or 2 and 
any of the journal flags in the IFAB are set. 


v03-018 KBT0461 Keith B. Thompson 13-Jan-1983 
Allocate a BDB and buffer for reading in the prologue 
v03-017 MCNO006 Maria del C. Na 02-Dec-1982 


sr 
In main module, check the device type if file created 
with block 1/0 set. If device is random access, continue 
to write prologue; o*’..rwise, return. This will correct the 
creation of a file with invalid prologue when all XABs were 
correctiy defined. If no XABs were given, an invalid file 
will still be created to support the COPY program. 


v03-016 MCNOO00S Maria del C. Nasr 01-Dec-1982 
Routine EXTEND: Set the TOTAL_ALLOC field in the area 
descriptor for each area as it is extended. 


V03-015 MCN0006 Maria del C. Nasr 18-Nov-1982. | 
Fix more bucket size problems caused by COPY since it does 
| 
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not define any keys, but it sets up area XABs. 


v03-014 MCNO003 Maria del C. Nasr 15-Nov-1982 
- Do not change the FAB_BKS value if there are no area XABs. 
- If a given area is not related to a key or data bucket, and 
the buc ze error. ‘ 
- If no area XABs, make sure that at least two keys fit in the 
bucket size specified in the FAB, if any. 
- Set the FAB and IFAB bucket size values to the largest bucket 
size in the file, not the or taary data level size. 
- Call CHECK_MRS for the FAB only when we know that there are 
no _ area XABs. : 2 
- Place the FWA address in R10 again, if RMSCREATCOM fails. 


v03-013 MCNOO002 Maria del C. Nasr _ 11-Nov-1982 
Delay the optimization of the bucket size for the data bucket 
(forcing it to be at least 2), after we have determined if the 
user gave a bucket size in an allocation XAB. In that way, we 
will not return a 8KZ error if he specified a value of 1. 
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16-Sep-1984 01:39:47 AX-11 Bliss-32 V4.0-742 
13-308-1 382 eed RMS SREIRA CREATE .B32;1 
; 63 1 RL$RW_PROLOG = JSB () : GLOBAL (COMMON_FABREG, R_BDB) 
; KEY. = : GL 8 + RLFAB, XAB = 6, BUF = 7); 
1 64 RLSWRITE_KEY_DESC JSB () : GLOBAL (R_IFAB> R_FAB, XAB = 6, BUF = 7) 
3 $8 ¢ 1 ! Forward Routines 
Bo BT! 
; 63 1 FORWARD ROUTINE 
; 20 0 1 RMSCREATE3B : RLSFABREG, 
: 208 71 «1 AL_KEY_DESC : RLSAL_KEY 
3 209 f 1 CHECK_AREAS : RL$CHR_AND_REPROBE, 
: 210 02735 1 CHE CK_DENSE : RLSCHECK_DENSE, 
: et 0 74 «1 CHECK INPUT : RLSCHECK_ INPUT 
: ig 75 1 CHE CK"KEY_PARMS RLSCHECK-KEY_PARMS, 
3: 21 0 6 1 CHECK_MRS : RLSCHK_ARND_REPROBE, 
3; 214 0277 1 CHE CK_OVERLAP : RLSCHECK_OVERLAP, 
> 215 9 8 1 CHE CK~ PROLOG : RLSCHECK_PROLOG 
: 1 79 1 CLEAR : RLSCLEAR NOVALUE, 
; 1 0280 1 EXTE : RLSEXTEND 
: 218 0281 1 FIND_ PROLOGUE : RLSFIND PROLOGUE, 
: 219 0 +f) 1 GET_BKs : RLSGET_BKS, 
: 220 0283 1 GET-KEY_PARMS : RLSGET-KEY_PARMS NOVALUE, 
5 1 0284 1 mM : RLSWRITE_KEY_DESC, 
; ¢ 0285 1 READ_PROLOGUE : RLS$RW_PROLOG 
; 0286 1 REP 20BE : RLS$CHR_AND_REPROBE, 
; 4 0287 1 WRITE_KEY DESC : RLSWRITE_KEY_DESC, 
; ; 8 3 } WR, TE_PROCOGUE : RLSRW_PROLOG; 
3 si 8 ay : External Routines 
: ¢9 0 9 1 EXTERNAL ROUTINE 
; 0 0293 1 RMSAL_KEY_DESC : RLSLINK_7_10_11 ADDRESSING_MODE (GENERAL), 
: 231 0294 1 RMSALBLB : RLSLINK~7-10-11 ADDRESSING MODE (GENERAL), 
; 3g 0 95 1 RMSALDBUF : LpB0 ADDRESSING_MODE( GENERAL ), 
oo ae 96 1 RMSCACHE RLSCACHE ADDRESSING MODE GENERAL) 
; = 0297 1 RMSCREATECOM RLSFABREG ADDRESSING MODE (GENERALS 
; 5 0298 1 RMSEXTENDO RLSEXTENDO ADDRESSING MODE (GENERALS, 
; 0 99 1 RMS$GETSPC RLSGETSPC ADDRESSING_MODE (GENERAL), 
i3 7 00 1 RMSMAK SUM : RLSCHKSUM ADDRESSING MODE (GENERAL 
: 0301 1 RMSRELEASE : RLSRELEASE_FAB ADDRESSING MODE (GENERAL), 
3 r) 0 o¢ 1 RMSRETSPC : RLSRETSPC ADDRESSING MODETGENERAL) NOVALUE, 
; _DEV LSLINK_7_10_ NG_ NERAL) ; 
40 0305 RMSRND_DE RLS$LINK_7_10_11 ADDRESSING_MODE (GENERAL) 

; 4 0305 1 EXTERNAL : : 
i; 24 B09 1 PIO$GB_RMSPROLOG: ADDRESSING_MODE (GENERAL), ! These symbols are defined in the SHELL 
3 re} $44 : SYSS$GB_RMSPROLOG: ADDRESSING_MODE (GENERAL); ! These symbols are defined in SYSPARAM 


ee eee en 


4 
RMSCREATE 1b-5e 1984 01:39:47 AX-11 Bliss-32 V4.0-74 
vOe-000 RMSCREATE3B 1 730p71$8e Mbt t8 Lams. SRC RM CREAYE 83071 
47 ZSBTTL  ‘RMSCREATE3B' 

GLOBAL ROUTINE RMSCREATE3B : RLSFABREG = 


‘oe 


RMSCREATE3B 


= 


NOUS W—OO0O@ 


This routine checks the sr (XABs), creates the file, 
fills in key descriptor, allocates index descriptor, and writes 
the prologue. 
CALLING SEQUENCE: 
RMSCREATE3B() 


INPUT PARAMETERS: 


WI 


FAB - address of user's file access block 
IFAB_FILE = address of internal RMS file access block 


! 

i 

i 

| IMPLICIT INPUTS: 
i 

i 

i 

i 
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; ; one 

0 3 IMPLICIT OUTPUTS: 

1 ; None 

; ; ROUTINE VALUE: 
3 RFM,BKS, IMX,REF,FLG,DTP,S1Z,POS,NPK,XAB,1AN,LAN,DAN,IFL,DFL, 
; BKZ,PLV,MRS,SEG,KNM,AID,IBK,KSI,and SUC 


SIDE EFFECTS: 
File is created 
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BEGIN 


!' These macros are defined to make code more readable. They are 
executed when an error occurs, and buffers must be released. 
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ar 


ACRO 
RETURN ae a 


ELSE BDB = .BDB~VBN1; 
RNSRELEASE (0); 
END; %, 
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RETURN ALL _BUFS = 
IF .80B EQL .BDB_VBNI 
RMSRELEASE (0) 
BEGIN 
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vO4=000 RMSCREATE3B 102 368-1$8e 1 O1i18 AMS. SRCIRMSCREATE 83271 


STATUS = CHECK_INPUT ( .SPACE_ADDR; PROLOGUE ); 
Before checking STATUS, return space used for bits masks 


RMSRETSPC ( TABLE_SIZE, .IFAB, .SPACE_ADDR ); 


! If CHECK_INPUT failed, return error. Otherwise, save 
prologue version, and continue processing. 
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= 


If NOT .STATUS 
RETURN .STATUS; 


OONA NEW “OOONAUE WN OOON 


: M 66 RMSRELEASE (0); 
; 5 M 0356 RETURN_VBN1; 

3 M 036 ene END: 

3 oS 4 

3; w 71 LOCAL 

3 i? if CRE_STATUS; 

3 \§ 74 EXTERNAL REGISTER 

3 \7 e COMMON_FAB_STR; 

; 315 0 6 GLOBAL REGISTER 

§ 1 4 BUF = 7 : REF BBLOCK, 

: i 8 a XAB = 6 : REF BBLOCK; 

3 20 0362 Set up IFAB in R10, but have to save the FWA address for RMSCREATECOM 
: 321 8 BEGIN 

3 $$ b382 

3 0385 OCAL 

: 324 0386 SPACE_ADDR, 

3 5 0387 FWA; 

s 6 tt 

B ser 389 LITERAL 

; 8 Beae TABLE_SIZE = 64; 

: 3% $392 FWA = .IFAB 

3 =. : 

3; 331 0 98 IFAB = .IFAB_FILE; 

3 3 0394 

; 33 0395 ! Get space for key and area bit masks 
i 33¢ $399 

4 36 O399 RETURN_ON_ERROR ( RMSGETSPC (.IFAB, TABLE_SIZE; SPACE_ADDR) ); 
3 3 ets } Call CHECK_INPUT to verify that the XABs are correct. 
; 34 Begg 4 BEGIN 

: 4 03 4 

3 04 & OCAL 

A 05 4 PROLOGUE, 

3 5) 4 STATUS; 

3 07 4 

8 4 

: 4 

8 4 

: 4 

$ 4 

3 4 

: 4 

s 4 

3 4 

3 4 

3 4 

3 4 

s & 

s 4 

: 4 
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1 ~3007 138% eee ERMS. SRC RMSCREATE.B32; 
IFAB CIFBSB_PLG_VER] = .PROLOGUE; 
END; ! end of STATUS and PROLOGUE definition 


Get space for key and area tables 


SIZE, 
STATUS; 


SIZE = ( 8 * .IFAB CIFBSB_NUM_KEYS) ) + .IFAB CIFBSB_AMAX); 
IF .SIZE LSS 12 
THEN 


SIZE = 12; 
RETURN_ON_ERROR ( RMSGETSPC (.1FAB, .SIZE; SPACE_ADDR) ); 
' Call routine to check area information against key XABs, and 
return space used by tables. 
STATUS = CHECK_AREAS ( .SPACE_ADDR ); 
RMSRETSPC ( .SIZE, .IFAB, .SPACE_ADDR ); 
If CHECK_AREAS failed, return error. 


Ys NOT .STATUS 


N 
RETURN .STATUS; 
END; ! end of SIZE, STATUS def 


Actually create the file on the disk 


iFAB = FWA; ! restore FWA adddress for call 
CRE_STATUS = RMSCREATECOM(); 


IF NOT .CRE_STATUS 
OR ( .FAB CFABSV_CIFJ 
—_ .CRE_STATOS EQL RMSSUC() ) 
RETURN .CRE_STATUS; 
END; ! end of FWA and SPACE_ADDR definition 
From now on, we need the IFAB address in R10 
iFAB = .JFAB_FILE; 


' If block 1/0, and device not random, then just return. Otherwise, 
continue to write prologue. 
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BEGIN 


GLOBAL REGISTER 
R_IDX_DFN; 


IF .FAB CFABSV_BIO) 
AND NOT RMSRAD_DEV () 


RETURN -CRE_STATUS; 
END; 
BEGIN 
GLOBAL REGISTER 
R_BDB_STR; 
BEGIN 


! Allocate a BDB and a 1 block buffer for reading in the prologue 
More if either Al or Bl journaling, see discussion in RM3CONN. 


LOCAL 

max bucket size 

size of buffer to allocate 
pointer to jnlbdb 

pointer to data bdb 


BuF S12, 
JBDB: REF BLOCKE.BYT 
DBDB: REF BLOCKL.BYT 
BUFSIZ = BKS = 512; 
IF ,JFABCIFBSV_AIJ 
BUFSIZ = .BUFSIZ + RJRSC_BKTLEN + BDBSC_BLN; 
IF .IFABCIFBS$V_B1) 
BUFSIZ = .BUFSIZ + .BKS + RJRSC_BKTLEN + BDBSC_BLN; 


RETURN_ON_ERROR( RMSALDBUF( .BUFSIZ ) ); ' Allocate a BDB. 
IFABCIFBSO_AVLCL] = .JFABCIFBSW_AVLCL] + 1; ! Increment the local buffer count. 


! The new BDB is allocated onto the end of the BDB chain. Now fill in the 
} BDB to describe the journaling fields and buffers. 


DBDB = .IFABLIFB$L_BDB_BLNK); 
DBDBC(BDBSW_SIZE) = .BKS; 

IF .IFABCIFBSV_AIJ 

THEN 


EJ, 
EJ; 


GIN 
J8DB = .DBDBCBDBSL_ADDR); 
DBDBCBDB$L_AI_8DBJ = .JBDB; 


4808 BDB$B_BID) = BDBS$C_BID; 
JBDBCBDB$B-BLN) = BDBSC-BLN/4; 
JBDBCBDBSL-FLINK] = .JBDB; 


RMS .SRCIRMSCREATE B32; 
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; 475 7 JBDB[BDBSL_BLINK] = .JBDB; 
; 47 5 JBDBLBDBSW_SIZE) = .BKS + RJRSC_BKTLEN; 
; 47 JBDBLBDBSL_ADDR) = .JBDB + BDBSC_BLN; 
; 47 40 DBDBLBDBSL_ADDR) = .JBDB + BOBSC_BLN + RJRSC_BKTLEN; 
8 ri ‘ 2 END; | 
; rk rk 4 If .JFABCIFBSV_B1) 
- $f Migr 
: 486 #8 JBDB = .DBDBCBDBSL_ADDR) + .BKS; 
5 BI. B « $ 
ret ¢ DBDBCBDB$L_B!1 BDB JBDB 
: iB? aks JBDBCBDB$B_B1D) = BDBSC_BID; 
; 488 550 JBDB(BDB$B_BLN)] = BDBSC BLN/4; 
; 489 551 JBDBCBDBSL_FLINK] = .JBDB; 
; 490 226 JBDBLBDBSL_BLINK] = .JBDB; 
: 491 B32 J8DB ee HHT = .BKS + RJRSC_BKTLEN; 
; 49 554 JBDBCBDBSL_ADDR] = .JBDB + BDBST_BLN; 
; 49 8222 4 END; 
3 494 229 4 
5 og? B22t END; 
: re 0559 ! One BLB is allocated as part of a shared eren if necessary. If 
; rh | pee0 } locking is required, a lock BLB must be allocated now. 
; 500 8206 IF NOT .IFAB CIFBSV_NORECLK) 
; 501 056 THEN 
3 206 Fo ¢: 2 BEGIN 
; 304 0366 4 GLOBAL REGISTER 
; 505 F984 ? R_IDX_DFN; 
; 309 569 4 RETURN_ON_ERROR( RMSALBLB() ); 
3 oS 359 END; 
: 10 0278 ' Define and initialize some loca’ variables. 
3 OV 57 ! 
3 1 278 2 BEGIN 
: 514 576 4 LOCAL 
3 15 577 4&4 Vv ' VBN number 
; 16 378 4 DISP, i offset into VBN 
; 31 579 4 LAST_KEY_VBN, ! will be used to calculate where 
; \8 5 4 ' first orgs descriptor goes in plg 
s $1 5 4 : BYTE, ' compression flag 
; 0 5 § & ALLOC : BYTE ' alloc XAB found flag 
: 521 5a3 4 XAB_TYP : BYTE, i XAB type 
3 § 5 4 BDB_VBN1, ' stores BDB address of VBN 1 
3 585 4 BLB_VBN1 ' stores BLB address of VBN 1 
3 4 5 4 ARERO_SIZE; ! total size allocated to area 0 
; 5 3 ? | 
3 = 0; 
3 § 4 ALLOC = 8: | 
: 355 4 “VENI = 0: 
: 39 4 LAST_KEY_VBN = ( .IFAB fiFBsB NUM_KEYS] +3) / 5 41; 
; 1 593 4 AREAD_SIZE = .1fAB CIFBSL_HBKT; 
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oO 


! If we are sharing this file, then get a lock on VBN 1 to keep everyone 
' else out while we wrest the pro‘ eaue. It will remain locked for the 

! rest of the file creation. The BLB address is saved in BLB_VBN1 so we 
! can return the lock if errors occur later. 


IF NOT .IFAB CIFBSV_NORECLK) 
THEN 


SRISARANLSSRLESE 


5 4 $ 
3 4 3 
g 4 : 
g G 3 
; 4 3 
3 4 ; 
; 540 BEGIN | : 
3 tg GLOBAL REGISTER 3 
3 $7 R_BKT_ADDR_STR; : 
; 45 Pp RETURN_ON_ERROR (RMSCACHE(1,512,CSHSM_NOREAD OR CSHSM_LOCK OR CSHSM_NOBUFFER), ; 
: 4g STATUS = RMSERR (ENQT di | ; 
; 94 BLB_VBN1 = .BDB; ! BLB returned instead of BDB. ; 
3 48 4 END; 3 
; 49 10 4 ; 
3 4 1 ? : Get start of XAB chain, and start scanning ; 
3 26 ig 4 XAB = .FAB CFABSL_XAB); 3 
3 35 0614 4 : 
; 554 0615 4 WHILE 1 3 
3 339 B68 4 DO 3 
; 28 0617 4 3 
s 33 0618 BEGIN 3 
; 558 0619 3 
; 559 0620 !' If mo more XABs, check if we found an allocation XAB. If we did, 3 
: 560 0621 5 ' exit loop. Else, set the XAB type to ALL. so that we force at least F 
; 561 i one alloc XAB definition. ; 
3 6¢ ! 3 
: 56 0624 3 
: 64 0625 IF .XAB EQL 0 $ 
: 366 0697 6 MEN BEGIN 
3 $9 be 8 6 3 
; 568 0629 6 IF .ALLOC 3 
; 569 0630 6 ; 
; 0 1 6 EXITLOOP : 
; 571 $ 6 3 
; 6 XAB_TYP = XABSC_ALL; ; 
3 37 0634 6 END 3 
3 are 35 ELSE : 
: 7 3 ! If this is a valid XAB, reprobe it and save the type. : 
; Of ; | ; 
; 578 39 6 BEGIN 3 
3 79 0 6 RETURN_ON_ERROR ( REPROBE () ); 3 
: 580 1 3 XAB_TYP =".XAB CXAB$B_COD]); 3 
; 581 0642 ; 
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3 ; sone | tn othe FROM XABSC_DAT TO XABSC_TRM OF 
5 45 
t$ CXABSC_KEY) : 
64 BEGIN 

89 rt 

90 0 ' Calculate the VBN and offset where this hey descriptor 

$2 will go in the prologue based on the key of reference. 

g 

94 654 IF .XAB CXABSB_REF] EQL 0 

38 2$ VBN = 1 

298 658 DISP = 0; 

a) 59 D 
600 0660 
601 0661 BEGIN 
60 Reeg VBN = ( .XAB CXABSB_REF] +4) /5 +1; 
60 066 DISP = ( ( .XAB CXABSB_REF] - 1) mop § ) 
604 0664 * T KEYSC_BLN + KEYSC_SPARE ); 
605 0665 END; 
606 066 
607 P 066 RETURN_ON_ERROR ( READ_PROLOGUE (.VBN), 
608 0668 RETURN-VBN1 ); 
609 0669 

0670 ! If VBN 1 is read, save its BDB address in 8DB_VBN1 so that 
per) ' if we fail reading or writing the prologue, this locked VBN 


can be released. 
if .VBN EQL 1 
BDB_VBN1 = .BDB; 
' Set the esors ing address of the key descriptor and call the 
' routine which fills in the fields. If in error, must release 
all buffers that have been locked. 
BUF = .BDB CBDBSL_ADDR] + .DISP; 


RETURN_ON_ERROR ( WRITE KEY DESC (), 
RETURR_ALC_BUFS ); 


Allocate in_core index descriptor 


RETURN_ON_ERROR ( AL_KEY_DESC ( .BUF, .VBN, .DISP ), 
RETURN_ACL_BUFS ); 
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Write the VBN we just filled, If sharing and we are writing 
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1 
os? 069 i VBN 1 then clear bdb as it will be released when we write 
6 694 ' the buffer. Clearing bdb before the write is Okay. because 
tH 222 } if an error occurs, all we can do is release the lock. 
6 ry IF NOT .IFAB CIFBSV_NORECLK] 
O38 98 AND .BDB CBDBSL_VBN) EQL 1 
639 699 THEN 
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RMSCREATE 
v04=000 


: gh q 9 § BDB_VBN1 = 0; | 
; b4¢ P0708 6 RETURN.ON.ERROR ( WRITE PROLOGUE (), 
; 64 7 RETURN_QBN1 ); 
> 644 704 6 
3; 645 705 6 ! If the key or index is to be compressed, then set the 
3 0 7 6 ! compression flag for future reference. 
: ote rOB & , | 
3 649 709 6 LF NOT .XAB CXABSV_IDX_NCMPR] OR NOT .XAB CXABSV_KEY_NCMPR] | 
: 651 711 COMPR = 1; 

; 652 $Fi2 : END; 
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; 654 713 CXABSC_ALLJ: : 
fH ef aes : 
2 os Sinise CU econ a 3 
3 ! The area descriptors go in the prologue depending on the . 
; 659 718 6 ! position of the Last Rey descriptor tnd the orea’ ta number. : 
; 660 0719 6 ! $ 
3; 661 0720 6 3 
; 66 0721 6 IF .XAB EQL 0 ; 
; 66 07 ¢ 8 THEN $ 
: 664 07 BEGIN 3 
; 665 0724 7 VBN = + LAST _KEY_VBN + 1; ; 
; 666 0725 7 DISP = 0; : 
; 667 0726 7 D 3 
; 668 0727 6 ELSE : 
3; 669 0728 7 BEGIN : 
; 670 0729 7 VBN = ( .XAB CXAB$B_AID] + 8 ) / 8 + .LAST_KEY_VBN; : 
; orl of 9 [ DISP = ( .XAB CXABSB_AID] MOD 8 ) * AREASC_BLN; : 
; 67 bog 6 3 
; 674 P 0733 6 RETURN_ON_ERROR ( READ_PROLOGUE (.VBN), ; 
; 675 0734 6 RETURN_VBN1 ); 3 
; 676 0735 6 $ 
s 677 b736 6 ! If VBN 1 is read, save its BDB address in BDB_VBN1 so that r 
: 678 0737 6 ! if we fail reading or writing the prologue, this locked VBN 3 
; 679 0738 6 ' can be released. ; 
; 680 0739 6 ! 3 
; 681 0740 6 IF .VBN EQL 1 3 
: 682 0741 6 THEN 3 
3 683 0742 & BDB_VBN1 = .BDB; : 
: 684 07435 6 : ; 
3; 685 0744 6 ' Set the starting address of the area descriptor, F 
3; 686 0745 6 ' and clear the buffer. 3 
3; 687 0746 6 ! 3 
3; 688 0747 6 BUF = .BDB CBDBS$L_ADDR] + .DISP; 3 
3; 689 0748 6 CLEAR (.BUF, AREASC_BLN); $ 
: 690 0749 6 : 
3; 691 0750 6 ! If no allocation XAB, then default values 3 
3; 69 0751 6 ! 3 
; 69 ters 6 3 
3 694 07535 6 IF .XAB EQL 0 3 
3; 695 0754 6 THEN 3 
; 696 0755 7 BEGIN 3 
3; 697 6728 7 BUF CAREASL_CVBN) =_1; : 
; 698 75 7 BUF LAREASB_ARBKTSZ] = .I1FAB CIFBSB_BKS); 3 
; 699 0758 7 BUF CLAREASL_NXTVBN) = .VBN + 1; PY 
; 700 0759 7 BUF CAREASL-CNBLK] = .AREAO_SIZE; | F 
: 701 0760 7 BUF CAREAS$L_U 8 = .VBN; 3 
: 70 0761 7 BUF CAREASW_DEQ) = .IFAB CIFBS$W_DEQ); | 3 
: 70 076¢ 7 BUF CAREASL~TOTAL_ALLOC) = .AREAO_SIZE; | ; 
3; 704 0763 7 IFAB CIFBSB_AVBN) = .VBN; | 3 
: 705 0764 7 N F 
3 £08 8792 6 3 
3; 70 166 7 BEGIN 3 
: 708 0767 7 BUF CAREASB_AREAID) = .XAB CXABS$B_AID]; 3 
; 709 0768 7 BUF CAREA$W"DEQ]) = .XAB CXAB$W_DEGI; | 3 
> 710 0769 7 BUF CAREASB"ARBKTSZ23 = .XAB CXAB$B_6KZ); : 
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s ii 770 67 BUF CAREASV_CBT] = .XAB (CXABS$V_CBT); ‘ 
; ay 771 7? BUF CAREASV-CTG) = .XAB ([XABSV~CTGJ; : 
; 71 ore ? BUF [AREASV_ONC] = .XAB [XABSV_ONC); ; 
; re Ooo7 f BUF CAREASB_ALN] = .XAB LXABSB_ALNJ; : 
3 at 0775 7 ! The alignment data are stored in the area descriptor : 
; ats b578 4 depending on the alignment option the user specified. ‘ 
; 719 o778 ? CASE .XAB CXAB$B_ALN] FROM XABSC_ANY TO XABSC_RFI OF : 
: 720 0779 7 SET ; 
; 6 6fel 0780 7 ; 
: 7 § 14 7 CXABSC_ANY] : 0; : 
. 6% 7 § 7 ; 
> 724 0783 7 CXABSC CYL, XABSC_LBN): : 
> 725 0784 8 BEGIN : 
: 726 0785 8 BUF CAREASW_VOLUME] = .XAB CXAB$W_VOL]; : 
; ig 0786 8 BUF CAREASL_LOC) = .XAB CXABSL_LOC); : 
> 728 0787 8 BUF CAREASV-HARD] = .XAB CXABSV_HRDJ; : 
; 729 0788 7 END; : 
; 730 0789 7 : 
3 1 0790 7 CXABSC_VBNIJ: : 
3; se 0791 7 BUF CAREASL_LOC] = .XAB CXABSL_LOC); : 
; 733 1444 7 F 
3 «734 C793 7 CXABSC_RFIJ: ; 
3 35 0794 8 BEGIN : 
; 736 0795 8 ; 
3 for 0796 8 LOCAL ; 
; 738 0797 8 RFI : REF VECTOR C,WORD); 3 
; 739 0798 8 : 
; 740 0799 8 RFI = BUF CAREASW_RFIJ; ; 
> 741 0800 8 RFI CO) = .XAB CXABSW_RFIO]; ; 
s 7% 0801 8 RFI 4 = .XAB CXABSW_RFI2]; : 
; 74 0802 8 RFI C2) = .XAB CXABSW_RFI4); : 
> 744 0803 8 BUF CAREASL_LOC) = .XAB CXABS$L_LOC); ; 
3 «745 0804 7 END; : 
; bg 0805 7 ; 
; 74 0806 7 COUTRANGE] : ; 
3; 748 0807 8 BEGIN : 
3 749 0808 8 FAB CFABSL_STV) = .XAB CXABSB_AID); i 
; 750 P 0809 8 RETURN_ON_ERROR ( RMSERR (ALND, 3 
3 1 0810 8 RETURN_ALL_BUFS ); 3 
; P36 0811 7 END; 3 
3; ££ pets 7 TES; 3 
3; 754 tt 4 : 
: 755 814 IF .XAB CXABSB_AID] NEQ 0 3 
3; Te 0815 7 THEN 3 
3 for oa1$ 8 BEGIN : 
s 8 081 : 
3; 759 0818 IF .XAB CXABSL_ALQ]) NEQ 0 : 
: 760 0819 THEN | : 
3; 761 bB54 3 
; 821 RETURN_ON_ERROR ( EXTEND ( .BUF, .XAB), | : 
; 08 ‘ RETURN_ALL_BUFS ); F 
; 08 END : 
; 0824 : 
; 0825 ELSE | : 
; 0826 7 | 3 
| 
| 
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: 768 a, 2 ' Area number 0 $ 
3 ro) 3 7 ! : 
; 770 BEGIN 3 
s ri 0 BUF PARE ASL USED) = .1FAB CIFBSB_AVBNI; 3 
; ae 8 1 BUF CLAREASL-NXTVBN] = .IFAB CIFBSB_AVBN] + 1; < 
ee ee 8 ¢ IFAB_CIFBS$B_AVBN) = .VBN; 3 
; 774 9 BUF CAREASL-CVBN] = 1; 3 
: tr 4 BUF LAREASL_CNBLK] = .AREAO_SIZE; 3 
; 076 0835 BUF CAREASL-TOTAL_ALLOC] = 7AREAO_SIZE; ; 
3 77 0836 END; : 
; 778 6 END; $ 
; 779 8 6 : 
; 780 9 6 ! Write the VBN we just filled. If sharing and we are writing : 
: 781 840 6 ' VBN 1 then clear bdb as it will be released when we write ; 
s 7 0841 6 ! the buffer. Clearing bdb before the write is gaey because ‘ 
: ee bars ? if an error occurs, all we can do is release the lock. : 
3; 785 0844 6 IF NOT .IFAB_CIFBSV_NORECLK) 3 
; 786 0845 6 AND .BDB CBDBSL_VBN] EQL 1 : 
; 787 0846 6 THEN 3 
; 788 0847 6 BDB_VBN1 = 0; 3 
; 789 0848 6 3 
; 790 P 0849 6 RETURN_ON_ERROR ( WRITE PROLOGUE (), : 
; 791 0850 6 RETURN_VBN1 ); 3 
; 79 0851 6 : s 
; 79 tt) 6 ALLOC = 1; ! an area descriptor was found 3 
3; 794 085 5 é : 
; 795 0854 5 | 3 
: 796 0855 5 INRANGE] : 0; 3 
> 797 0856 5 OUTRANGE] : 0; | : 
; 798 0857 : : 
; 799 0858 TES; : 
: 800 0859 5 ; 
; 801 0860 5 IF .XAB NEQ 0 F 
; 80 0861 5 THE ; 
; 80 0862 5 XAB = .XAB CXABSL_NXTJ; ! get next XAB : 
; 6804 0863 4 END; ' end of WHILE loop ; 
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14-Sep-1 71982 93: ait YAMS SREIRMECREAYE: 83004 
! If the index of any of the keys, or the key itself is compressed, 
then add two bytes for compression overhead to the key buffer. 
IF .COMPR 

IFAB CIFBSW_KBUFSZ] = .I1FAB CIFBSW_KBUFSZ) + 2; 

END; ! end of def of VBN, DISP and others 


! Reread VBN 1 and fill in summary area information and prologue 
version number 


BEGIN 


oe REGISTER 
R_BKT_ADDR_STR; 


RETURN_ON_ERROR ( oy oy ( 1, 512, CSH$M_LOCK ), 
IF FAB CFABSL_STV] EQL 0 
THEN, 


FAB CFABSL_STV] = .STATUS OR 1°16; 
et; = RMSERR (RPL) 


); 
BKT_ADDR cPLGSB _AVBN] = .IFAB Teeth B_AVBN); 
BKT_ADDR CPLGS$: X] = .IFAB CIFBSB-AMAX); 
BKT-ADDR POs VER_NO] = .IFAB atte PLG_VER]; 
RMSMAKSUM ( .BKT_ADDR ); 


BDB CBDBSV_VALJ = 1; 
BDB CBDB$V~DRT) = 1; 


RETURN_ON_ERROR ( RMSRELEASE ( RLSSM_WRT_THRU ), 
IF .FAB CFABSL_STV) EQL 0 
THEN 


FAB CFABSL_STV) = .STATUS OR 1°16; 
a © RMSERR (WPL) 


END; ! end of BDB register declaration 

RETURN .CRE_STATUS; 

END; 
-TITLE RM3CREATE 
-IDENT \V04-000\ 
-EXTRN RMSAL_KEY ~PESE RMSALBLB 
-EXTRN RMSALBBUF? ACHE 
"EXTRN RMSCREATECOM. RMSEXTENDO 


0 5 
RM3CREATE 16-Sep-1984 01:39:47 AX-11 Bliss-32 V4.0-742 Page . 
V0z-000 RMSCREATE38 1or90p- 1382 ShiaTiT8 «| Paks Sab baaScRE AYE (93574 9° 17) | 
.EXTRN RMSGETSPC, RMSMAKSUM | 
TEXTRN RMSRELEASE, RMSRETSPC 
[EXTRN RMSRND_DEV, P10$GB_RMSPROLOG 
-EXTRN SYSS$GB_RMSPROLOG 
.PSECT RMSRMSMISC,NOWRT, GBL, PIC,2 | 
OOFC  8F BB 00000 RMSCREATE3B:: 
PUSHR #*°M<R2,R3,R4,R5,R6,R7> ; 0310 
SE 2¢ C2 00004 SUBL2 #44, SP : 
24 «AE A D0 00007 MOVL  IFAB, FWA + 039 
3A 59 p 0 0B MOVL FAB FILE, 1FAB : 039 
2 40 SF A 0 MOVZBL #64, R ; 0398 
51 5A 00 0001 MOVL  IFAB, R1 : 
000000006 90 16 0001 JSB RMSGETSPC : 
20 AF 1 dO 00018 MOVL R1, 32<SP : 
7 50 €9 O001F BLBC STATUS, 3$ ; 
20 AE bp 00 2 PUSHL  SPACE_ADDR + 0408 
0000v 30 000 SBW CHECK_INPUT : 
SE 04 CO 00028 ADDL2 #4, SP : 
28 «AE 50 00 00028 OVL RO, STATUS : 
54 20 AE DO 0002F MOVL § SPACE_ADDR, R4 + 0413 
53 SA +4 0033 MOVL IFAB, R3 5 
52 40 BF 9A 000 MOVZBL #64, R : 
000000006 00 16 0003A $B RMSRETSPC : 
06 28 AE €E8 00040 BLBS § STATUS, 1$ + 0419 
50 28 AE DO 00044 MOVL = STATUS. RO + 0421 
50 11 00048 BRB 3$ ; 
00B7 CA 57 90 0004A 1$: MOVB PROLOGUE, 183(1IFAB) + 0423 
50 00B2 CA 9A OO04F MOVZBL V2BCIEABS , RO + 0436 
51 00B1 CA 9A 00054 MOVZBL 177(IFAB). R1 : 
55 6140 7E 00059 MOVAQ (R1)CROJ, SIZE ; 
0c 55 D1 0005D MPL SIZE, #12 > 0438 
03 18 00060 GEG ~Sts«éS : 
55 0c D0 00062 MOVL #12, SIZE + 0440 
52 55 D0 00065 2$: MOVL SIZE, R2 + 0441 
51 5A DO 00068 MOVL  IFAB, R1 : 
000000006 00 16 00068 JSB RMSE TSPC ; 
20 AE 51 pO 00071 MOVL R11, 32(SP) : 
7D 50 €9 00075 BLBC STATUS, 11$ : 
20 Af BB Bence PUSHL SPACE_ADDR 3; 0447 
0000v 30 00078 BSBW  CHECK~AREAS ; 
$58 Sees aBR? oe Sanu 7 
54 20 AE 4 bose MOVL §SPACE_ poR, R4 > 0449 
53 5A 00 00088 MOVL  IFAB,”R : 
52 55 DO 00088 MOVL SIZE. R2 : 
000000006 2 16 OOO8E JSB RMSRETSPC : 
06 E 0094 BLBS STATUS, 4$ > 0454 
50 7 p 0097 MOVL STATUS. RO > 0456 
0405 31 OO9A 3$ BRW 64$ ; 
SA 24 DO 00090 4$ MOVL FWA, IFAB > 0461 
000000006 Q 16 000A1 JSB RMSCREATECOM > 0462 
24 aE D A? MOVL RO, CRE_STATUS : 
0 24 ~=AE 5 AB BLBS  CRE_STATUS, 6$ > 0464 | 
036 AF 5$: BRW ; | 
06 07 «AB 1 €1 000B2 6$: BBC #1, 7(FAB), 7$ > 0465 
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RMSCREATE 16-Sep-1984 01:39:47 AX-11 Bliss-32 V4.0-74 Page 21) 
vOe-000 RMSCREATE3B 1 3en 1382 $bidt:t8 «— EAms sRedRnscaeate .35; o 5} 
D8 16 AE €9 00267 BLBC STATUS, 2 : 
08 06 AA 08 34 68 BBS 3 STAB). 32$ : 697 
01 1¢ AG OD CMPL ; (BDB), : 0698 
02 12 00274 BNEG 5 : 
ps £6 CLRL 8DB_VBN1 : 9700, 
0000v 78 32%: BSBw WRITE _PROLOGUE ; 070 
“oA d 7B MOVL RO, STAT : 
D 14 Ar E 7F BLBC yAty $ : 
05 1 Ab E1 BBC #3, 1B(xAB), 33S + 0709 
4 12 Ab 6 0 0 BBS * 18(KAB), 34$ : 
28 «AE 1 0 3$: MOVE C + 0711 
0193 31 1 34$: BRw : $63 
14 AF D4 00294 35$: CLRL (SP) + 0721 
56 D5 00297 TSTL : 
0D 12 00299 BNEQ 3 
16 AE D6 00298 INCL O(SP) : 
55 20 AE 01 C1 00 H ADDL3 #1, LAST_KEY_VBN, VBN + 0724 
08 AE D4 002A CLRL Sp : 0728 
22 11 00 Ne BRB 3 + 0721 
50 17 A6 9A OO2AB 36$:  MOVZBL 23(xAB), RO + 0729 
50 08 CO O02AC ADDL2 #8, RO ; 
50 08 C6 OO2AF DIVL2 #8. RO ; 
55 50 20 AE ci 0 a ADDL LAST KEY_VBN, RO, VBN ; 
50 17 Ad 9A 0028 MOVZBL 23(XAB), RO : 0730 
7E 99 50 01 7A 002BB EMU , RO, #0, =(SP) : 
50 0 Hs 08 £8 0 C0 EDIV #8. (SP)+, RO, RO ; 
08 AE 06 78 002¢ ASHL #6. RO, DISP : 
pp O2CA 37$:  PUSHL VBN + 0734 
0000v 30 O02CC BSBW  READ_PROLOGUE : 
SE 04 CO O02CF ADDL2 #4, SP : 
Oc AE 0 DO 00202 MOVL RO. STATUS ; 
1¢ Oc AE €E8 00206 BLBS STATUS, 40$ ; 
6E DS OO2DA TSTL DB_VBN1 : 
06 if 00 dC BNEQ F 
54 04 AE OD DE MOVL B_VBN1, BDB ; 
03 11 OO2E BRB ; 
54 6f DO 002E4 388: MOVL § 8DB_VBN1, BDB ; 
D4 0027 39$:  CLRL R : 
000000006 00 16 002€9 JSB RMSRELEASE : 
50 AE po EF MOVL STATUS, R : 
O1AC 31 O02F3 BRW 4 ; 
01 5 p} 0 Fé 408 CMPL s*VBN, #1 : 0740 
F BNEG 41$ : 
6E 4D FB MOVL. &8DB B08 VBN1 : 0743 
57 18 AG 08 AE f FE 41$: ADDL3 ODISP, 24TBDB), BUF + 0747 | 
7E 4 ef A 00304 MOVZBL #64, =(SP) : 0748 | 
7 p 08 PUSHL BUF : 
0000v A BSBW = CLEAR ; | 
5 08 C ADDL2 #8, SP F 
2 “um é 1 BLBC 20(SP), 42$ > 0761 
o¢ A? 0 9 14 MOVL #1, 12¢BUF) : 0796 
A? SE AA 18 MOVE 94(1FAB), 3(BUF) : 07 
18 A7 01 «AS 1 MOVAB 1(R5), 24(BUF) : 07 8 
10 a? 10 AE D MOVL AREAO size 16 (BUF ) : 07 
14 A? 55 D MOVL VBN, 20(BUF) : 0760 
¢ A? 62 AA 8B mMOVe 98({FAB) 36 (BUF) ; 076 
2 a? 10 AE D MOVL § AREAO_SIZE, 50(BUF) > 0762 
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RM3CREATE 1b-se =-1984 2:39:47 AX-11 Bliss-32 V4.0-74 
v04=" RMSCREATE3B 1 ~300n 138% ee YRS. SRC RM CREAYE B3004 
000000006 00 16 00417 JSB RMSRELEAS 
50 14 A ? 41D MOVL STATUS, R 
7 4 BRB 64$ 
1c AE 1 90 004 558: MOVB #1, ALLOC 
$ DS 00407 56$: TSTL Xx 
} 409 BNEG 57 
FDB1 408 BRW 19$ 
56 06 =A bo 42E 57S MOVL 4(XAB), XAB 
FD? 4 BRW 18$ 
05 28 AE E9 00435 58S BLBC COMPR, 59$ 
0084 CA 0 Ap 4 ADDW2 = #2, 10 IFAB) 
¢ p 4 f 59$ MOV . 
0200 BF 3C 0044 mOV2wL #542, R2 
§ 1 dO 446 MOVL #1, R1 
000000006 0 16 0044 JSB8 RMSCACHE 
15 EB 0044F BLBS TATUS, 61$ 
0c AB D5 0045 TSTL @ (FAB) 
09 12 0045 BNEG = 6 ; 
oc AB 50 00010000 «BF ¢ 045 BISL3 #6 536, STATUS, 12(FAB) 
50 C104 er C 904 60$ MOVZWL #49412. STATUS 
B 11 0046 BRB 64 
66 AS 0080 CA B0 0467 61$ MOVW IC 1FAB), 102(BKT_ADDR) 
74 AS 398 CA B 6298 MOVZBW 183(IFAB), 116(BKT_ADDR) 
000000006 09 18 04 JSB RMSMAK SUM 
OA AG 03 88 00479 BISB2 43. 10(BDB) 
53 02 D0 09470 MOVL @# 
000000006 g 16 00480 JSB RMSRELEAS 
15 0 E8 00486 BLBS STATUS, 63% 
OC AB DS 00489 TSTL iY § 
09 1 048C BNEG 62$ 
Oc AB 50 00010000 «BF ¢ 048 BISL3 #65536, STATUS, 12(FAB) 
50 C11C «= BFE 3.00497 62%:  MOVZWL #49436. STATUS 
04 11 0049C BRB 6 
50 24 «AE 00 49E 63$:  MOVL  CRE_STATUS, RO 
5E ec CO 004A2 64$:  ADDL2 #447 sP 
OOFC F BA O4A POPR #°M<R2,R3,R4,R5,R6,R7> 
5 00409 RSB 


; Routine Size: 1194 bytes, Routine Base: RMSRMSMISC + 0000 


; 855 


0913 


1 


8 Bae 


ROUTINE VALUE: 
Error code or success 


SIDE EFFECTS: 
none 
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RASCREATE 1b-se -1984 01:39:47 AX-11 Bliss-32 V4.0-74 
yOe-080 AL_KEY_DESC 12-808-1 98 eee RMS.SRCJRM CRE AVE O34 
7 14 ZSBTTL ‘AL_KEY_DESC' 
31? ROUTINE AL_REY_BESC ( BUF, VBN,OFFSET ) : RLSAL_KEY = 
i$ ‘ee 
1 8 ! 
¢ 1 ! AL_KEY pase 
: This routine allocates_a key descriptor. This is in a separate module 
9 : $O as not to clobber R7. 
5 9 § } 
6 r i CALLING SEQUENCE: 
; 5 AL_KEY_DESC (BUF, VBN, OFFSET) 
0 ° i INPUT PARAMETERS: 
71 8 : BUF = address of buffer where data are stored 
7 929 : VBN = virtual block number corresponding to buffer 
ie, ? OFFSET = displacement into buffer 
75 ‘ i IMPLICIT INPUTS: 
th None 
78 5 i QUTPUT PARAMETERS: 
: none 
i IMPLICIT OUTPUTS: 
88 } none 
i 
: 
' 
i 
i 
' 


BEGIN 
EXTERNAL REGISTER 
COMMON _F ABRE 


GLOBAL REGISTER 
R_IDX_DFN; 


NOUS WN (0 OONOU EW 0 0@ 


RETURN_ON_ERROR ( RMSAL_KEY_DESC ( .BUF, .VBN, .OFFSET ) ); 
RETURN RMSSUC(); 
END; 


SRIF IPIFIPIFIFINIPIM NIN 8 tt st st st tt tk kk kk kk tk hs 


Be Se Se Ge Se Se Se Se Se Se Ge Ge Ge Ge Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Ge Se oe 
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—Oow 


57 DD 00000 sreneahtet *1 tI a7 
1 AE 0D 0 PUSHL OFFSET 
10 AE 0D 80008 PUSHL VBN 
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Woeson0 AL_KEY_DESC i$ reeen 1382 P4818 «YAMS SePdaaicacate esos Page of} 
ooooo0dee 65 § Op ise Ae DESC 
a 14 BLBC statu, 1$ : 

1 MOVL : $339 

E b 1A 1$: MOVL tsbye- R7 + 0961 
1D RSB : 


; Routine Size: 30 bytes, Routine Base: RMSRMSMISC + O4AA 


Be Se Se Se Se Se Se Se See Se Se Se Fe Se Se Se Se 


SSz3 
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Www 


Se ESSE 


33 
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18-5 1984 01:39:47 AX-11 Bliss-32 V4.0-74 
1 300-1 $8e Mbit RMS. SRCIRMSCREATE .B32; 


ZSBTTL ‘CHECK AREAS‘ 
ROUTINE CHECK_AREAS ( TABLES ) : RLSCHK_AND_REPROBE = 


+4 


CHECK_AREAS 
This routine loops thru the XAB chain again validate key 
information against area allocation information, and also obtain 
a valid bucket size value for each of the index levels. It stores 
all the needed information in a table in memory for future reference 
to avoid future passes thru the XAB chain. 


CALLING SEQUENCE: 
CHECK_AREAS (TABLES) 


INPUT PARAMETERS: 
TABLES = Address for tables in memory 


IMPLICIT INPUTS: 
FAB, F e XAB 

OUTPUT PARAMETERS: 
None 


IMPLICIT OUTPUTS: 
None 
ROUTINE VALUE: 


Success or error code. 
SIDE ereeres 


ares one 
BEGIN 
EXTERNAL REGISTER 
RrIFAB. STR, 
XAB = 6 : REF BBLOCK; 
LITERAL 


VBN_SIZE = 4; 
Fields for the key table 


FIELD 
KEV. 70tFLD = 

KSZ = (0,0, 0}. ' key size 
DAN = (1,0,8,0], ' data area number 
IAN = ¢ ‘ 8 M ' index area number 
LAN = YU, ' Lowest level index area number 
IFL = (4,0, é, i, ! index bucket fill size 
prt = (6,0,16,0 ' data bucket fill size 


~-o 


HS | 
RMSCREATE 16-Sep-1984 01:39:47 VAX=11_ BL iss-32 v4.0-74 p 7 
V04= CHECK _AREAS 130871882 3:08:18 Hams SRPinascReate o3oe4 age gi 


963 

ace Define the tables and others. 

208 LOCAL 

96 B1G_BKS, ' stores biggest bucket size 

968 ARER_FOUND, ! indicates if areas were defined 
969 MAX_MINREC, 

970 KEY_TBL : REF SE OER NEE TOR C1,8,BYTEJ FIELD(KEY_TBL_FLD), 

971 AREA_BKS : REF VECTOR C1,BYTEd; tthe only Field in the area 


table 1s the bucket size 
Get the address for each table 


KEY_TBL = .TABLES; 
ARER BKS =, TABLES + ( 8 * .IFAB CIFBSB_NUM_KEYS) ); 


AREK FOUND = 0; 
MAX_MINREC = 0; 


XAB = .FAB CFABSL_XAB); 

WHILE .XAB NEQ 0 

dO 
| 
| 


BBE EFI winonoponorononononn 


SOWONAMNE WN 9 ODNAU EWN O ODNOAUE WN ("OOO NOUFS WIN OO 


BEGIN 

RETURN_ON_ERROR ( REPROBE () ); 

' First verse that_the area numbers in the key XABs point to a valid 
' allocation XAB. Then fill the table with the information that must 
be verified later. 


CASE = XAB CXAB$B_COD] FROM XABSC_DAT TO XABSC_TRM OF 


CXABSC_KEY): 


BEGIN 

FAB CFABSL_STV] = .XAB CXABSB_REFJ; 

IF .XAB CXABSB_IAN] GEQU .IFAB CIFBS$B_AMAX] 
RETURN RMSERR (IAN); 

IF .XAB CXABSB_LAN] GEQU .IFAB CIFBSB_AMAX] 
RETURN RMSERR (LAN); 

J -XAB CXAB$B_DAN] GEQU .IFAB CIFBSB_AMAX] 
RETURN RMSERR (DAN); 

: If LAN is defined as area 0, set it equal to IAN. | 


SSeS SFSsss3 


SES 
MEW —OOONOUS WN 


IF .XAB CXABSB_LAN] EQL 0 
XAB CXABSB_LAN] = .XAB CXAB$B_IAN); 


Be Be Se Se Ge Se Se Se Ge Se Se Be Ge Fe Se Be Ge Se Se Ge Ge Se Se Ge Se Se Se oe Gs FH Ge Se Fe Se Ge Se Se Ge Se Se Se Se Se Se Se Se oe Ge Se FF Sse Ge Se Se Se Steg 
3 
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RMSCREATE 16-Sep-1984 01:39:47 AX-11 Bliss-32 V4.0-74 Page 28) 
v04- CHECK_AREAS 102800- 138 Motte CAMS .SRCIRM CREAYE 83061 te 5 
; 1020 1 6 4 3 
; 18 1 : 4 BEGIN : 
; 19 § 1978 LOCAL | ; 
: 1024 1 & EYSIZE, 3 
: 1025 1081 MINREC, 3 
1059 1088 shies | 
: 1028 \ORe ' Get key size, and minimum record size. Store key size 3 
$ 1° 2 1086 in table, and save biggest minrec so far. : 
> 1031 10 ' : 
3 1082 1986 GET_KEY_PARMS (;KEYSIZE, MINREC, SEGS); 3 
: 1033 1089 KEY-TBLC.XAB CXABS$B_REFJ, KSZ) = .KEYSIZE; ; 
: 1035 1091 5 IF .MAX_MINREC LSS .MINREC | ; 
: 1037 1098 8 MAX_MINREC = .MINREC; | : 
1039 1998 = | 
: He 1999 2 Store area numbers and fill values | : 
: 1048 1098 4 KEY_TBL C{.XAB CXAB$B_REFJ, IAN] = .XAB CXAB$B_IAN]; : 
3 104 1099 4 KEY_TBL C.XAB CXABSB_REFJ, LAN] = .XAB CXABSB_LANJ; : 
: 1044 1100 4 KEY_TBL C.XAB CXABSB_REFJ, DAN] = .XAB CXAB$B_DAN); é 
; 1045 1101 4 KEY-TBL C.XAB CXAB$B_REFJ, IFL] = .XAB CXABSW_IFLJ; ; 
3: 1046 1108 4 KEY_TBL C.XAB CXABSB_REFJ, DFLJ = .XAB CXABSW_DFLJ; : 
Mg Ue ty aig} 
; 1049 1195 3 CXABSC_ALLJ: | ; 
: 1051 1107 j ' For the allocation XAB, just save the bucket size : 
: 1926 1108 3 ! specified for the given area. 3 
: 1084 110 & BEGIN | 
> 1055 W111 4 AREA_FOUND = 1; | : 
: 1928 1iN¢ : AREA_BKS (.XAB CXAB$B_AID]) = .XAB CXAB$B_BKZ); ° 
: 1058 114 4 IF .XAB CXAB$SB_BKZ] GTR .B1G_BKS | ; 
: 1060 1116 4 BIG_BKS = .XAB CXAB$B_BKZ); ; 
; H's 2 Nit 3 ND; : 
; 1063 1119 COUTRANG ): 0; ; 
: 1064 1120 INRANGE : es : 
: 1066 1192 TES; : 
> 106 112 ‘ F 
z IPOs 1188 XAB = .XAB CXABSL_NXTJ; ‘ 
: 19%0 1186 END; ! end of WHILE loop | ; 
: 107% 1128 ! Mow that all required data have been stored in the tables, : 
; 107 1129 ! tind the best bucket size for each area based on the key sizes, : 
: 1074 1130 ! if the user did not give a value. If he specified a size, then 3 
: 1075 1131 ! make sure that it is big enough to hold the keys and data record 3 
3; 1076 1132 ! which correspond to the given area number. 3 


————____—_—_—_— 


i mumber for the Noe key, calculate the minimum bucket size. 
! It is equal to the bucket overhead plus two keys and their 
overhead, depending on the prologue version. 


S 
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077 1 : | 

ore BEGIN 

7 

080 LOCAL 

081 LAST _BKS, ! Last bucket size found | 

Ore MIN_BKS; ! minimum bucket size | 

ORe } Get the bucket size for a given area number. 

086 INCR AREANO FROM 0 TO ( .IFAB CIFB$B_AMAX] - 1 ) 

088 BEGIN 

089 

090 LAST_BKS = 0; 

091 

O36 Loop thru all keys 

094 INCR KEYNO FROM 0 TO ( .IFAB CIFBSB_NUM_KEYS] - 1 ) | 

096 BEGIN | 

as ! If the area number is equal to the index or lowest area | 

| 


ooo 


EYNO, IAN] 


IF .AREANO EQL .KEY TBL C.K 
L C.KEYNO, LANJ | 


OR .AREANO EQL .KEY_TB 
THEN 
BEGIN 
IF IFAB CIFB$B_PLG_VER] LSS PLGS$C_VER_3 


EN 
MIN_BKS = 2 * ( .KEY_TBL C.KEYNO, KSZ] + VBN_SIZE 
+ IRCSC_IDXOVHDSZ ) + BKT$C_OVERHDSZ 


MIN_BKS = 2 * ( .KEY TBL C.KEYNO, KSZ) + VBN 


= E SIZE 
+ IRCSC_KEYCMPOVA ) + BKTSC_OVERHDSZ + BRTSC_ENDOVHD; 
The bucket size should be in number of blocks, not bytes. 
MIN_BKS = ( .MIN_BKS / 512) + 1; 


! If the user gave a bucket size value for the given area, 
!' make sure it is big enough to hold two keys. If no area XAB 
found, use the FAB value if not zero. 


oO 


IF ( ,AREA_BKS C.AREANO) NEQ Q 
AND .MIN_BKS GTR .AREA_BKS C.AREANO) ) 
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3 ( NOT . 

0 -MIN_BKS GTR .FAB CFABSB_BKS) ) 
1 THEN 

¢ BEGIN 


| 
A 
AND .FAB CFAB$B_BKS] NEQ 0 | 
| 
FAB CFABSL_STV] = .KEYNO; | 

| 
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RETURN RMSERR (KSI); 
END; 
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Then get the largest bucket size found so far. 


IF .LAST_BKS LSS .MIN_BKS 
LAST_BKS = .MIN_BKS; 
ND; 
! If the area number is equal to the one specified for the 
' data level, find the minimum bucket size depending on the key 
of reference. 
Os EQL .KEY_TBL C.KEYNO, DAN] 
BEGIN | 
! For the SIDR level, just make it equal to the key size since 
we know that at least one key will always fit in the bucket. 
IF .KEYNO NEQ 0 | 
MIN_BKS = ( .KEY_TBL C.KEYNO, KSZ2] / 512) +1 
! For the ar yaery aT it depends on the bucket size value 
} specified in the a location XAB. 
ELSE 
BEGIN 
! If an area XAB was given, use the allocation XAB bucket 


' size, else use the FAB value. 
Call CHECK_MRS to make sure the record fits in the bucket. 


IAPRIPIMINIPINININININ 2 3 2 OO SS MH DOOD OOOOCOOCWOOOOOOOOOO 


AOE WR OC OONA UNE WIN 9 OD NA UE WIN 9S OONA UENO ODNOA UNE WR MOO DNAUE WN 


IF AREA_FOUND 

ELS IFAB CIFBSB_BKS] = .AREA_BKS C.AREANO) 
IFAB CIFBSB_BKS ] = .FAB CFABSB_BKS); 

iv a lFAB CIFBSW_MRS] NEQU 0 
RETURN_ON_ERROR ( CHECK_MRS (.1FAB CIFB$B_PLG_VERJ, .IFAB CIFBSW_MRSJ) ) 
RETURN_ON_ERROR ( CHECK_MRS (.1FAB CIFBSB_PLG_VER], .MAX_MINREC) ); 

The best value is in the IFAB now. 


MIN_BKS = .IFAB CIFBSB_BKS); 
END; ' primary key case 
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16-Sep-1984 01:39:47 AX-11 8B -32 V 

1228671382 93:59: T8 YAMS SREIRAECREAYE: 
Get largest one so far 


4 -LAST_BKS LSS .MIN_BKS 
“ee = .MIN_BKS; 
END; ! end of INCR KEYNO loop 
! Now that we searched all keys for one area number, store the bucket 
size calculated if the user did not give one. 
IF .AREA_BKS C.AREANO] EQL 0 


AREA_BKS C.AREANO) = .LAST_BKS 
ELSE 


If he gave one, make sure it is big enough. 
IF .LAST_BKS GTR .AREA_BKS C.AREANOJ 
THEN 


FAB CFABSL_STV] = .AREANO; 
Abe BRSERR (BKZ); 


! If no reference was made to this area, and the bucket size 
' : given is zero, return ‘bucket size’’ error. 


IF .AREA ry 5 OL AREANO] EQL 0 
und - AREA_F OUND 


FAB CFABSL_STV] = .AREANO; 
RETURN RASERR (BKZ); 
END; 
Store the biggest bucket size value so far. 
IF jB16_Bxs LSS .LAST_BKS 
BIG_BKS = .LAST_BKS; 
END; ! end of INCR AREANO Loop 


! Store the biggest bucket size value in the FAB and IFAB. But before, do 
! some validat H nor area 
KABs defined, for example when the file is being created with block 1/0 set. 


on to check the cases in which there are no ke 


IF .BIG_BKS EQL 0 
THEN 


BEGIN 
IFAB CIFBSB_BKS) = .FAB CFABSB_BKS); 
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CHECK_AREAS 


RMS .SRCIRMSCREATE.B3 


IF .1FAB CIFBSW_MRSJ NEQU 0 


EL gERETURNAONAERROR ( CHECKMRS (.1FAB CIFBSB_PLG_VERI, .IFAB CIFBSWMRSI) ) 
RETURN_ON ERROR ( CHECK_MRS (.1FAS CIFBSB_PLG_VERJ, .MAX_MINREC) ); 
B1G_BKS = 71FAB (1FBS8_8KSI; 


E 
ELSE 
BEGIN 
FAB CFABSB_BKS] = .BIG_BKS; 
FAB CIFB$8_BkKS) = .B16_BKS; 


IF .BIG_BKS EQL 0 

THEN 
FAB CFABSL_STV) = 0; ! no valid area id to give 
Ab RMSERR (BKS); 


END; ! end of LAST_BKS, and MIN_BKS def 
Loop thru the key table again to validate some fields. 


pan KEYNO FROM 0 TO ( .IFAB CIFBSB_NUM_KEYS) - 1 ) 


BEGIN 

FAB CFABSL_STV] = .KEYNO; 

! Make sure the bucket size of the index level is equal to the bucket 

size of the lowest inder level for all keys. 

IF .AREA_BKS C.KEY_TBL C.KEYNO, IANJ]] NEQ .AREA_BKS C.KEY_TBL C.KEYNO, LAN] 
RETURN RMSERR (IBK); 

! Check the IFL and DFL values. They cannot be greater than the bucket 

size given in number of bytes. 

IF .KEY_TBL C.KEYNO, IFL] GTR (.AREA_BKS C.KEY_TBL C.KEYNO, IAN)] * 512) 
RETURN RMSERR (IFL); 

IF .KEY_TBL C.KEYNO, DFL] GTR (.AREA_BKS C.KEY_TBL C.KEYNO, DAN] * 512) 
RETURN RMSERR (DFL); 

END; 


FAB CFABSL_STVJ = 0; 


!' Loop thru the XAB's again to fill in the correct bucket size value in the 
area XABs. 
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RMSCREATE 16-Sep-1984 01:39:47 AX-11 Bliss-32 V4.0-74 
vOe-000 CHECK _AREAS E2380 1382 ee RMS. SRCIRMSCREATE .B32; 
5 


; i 6} KAB = .FAB CFABSL_XAB); 
: 1 1 : WHILE .XAB NEQ 0 
31 1364 DO 
: 1 1365 BEGIN 
; 1 19 66 RETURN_ON_ERROR ( REPROBE () ); 
: 1 ig 1 8 IF .XAB CXAB$B_COD] EQL XABSC_ALL 
: 131 1 $ THEN 
: 1314 1370 XAB CXABSB BKZ) =_.AREA_BKS C.XAB CXABSB_AIDII; 
3 1315 1371 XAB = .XAB CXABSL_NXTJ; 
: 14 1 1 re END; 
: 131 137 
: 1318 1374 RETURN RMSSUC (); 
: 1319 1375 END; 
OABC 8F BB 00000 CHECK_AREAS: 
PUSHR #*M<R2,R3,R4,R5,R7,R9,R11> 
5E C2 90004 SUBL2 #8, SP 
54 28 AE 00 00007 MOVL TABLES, KEY_TBL 
30 0082 CA 9A 00008 MOVZBL 17 Ci AB) R 
5 28 BESO 7E 90019 MOVAQ @TABLESCROJ, AREA_BKS 
58 pd 9001 CLRL 1G_ 
7E 7¢ 00017 CLRQ MAX" MINREC 
56 24 As dO 00019 MOVL  36(FAB), XAB 
03 1 99010 1$: BNEQ $ 
g0¢ ; OO1F BRW 4$ 
000v 0 000 : 2s: BSBW PROBE 
51 0 c9 000 BLBC = STATUS, 7$ 
0D 1 86 BF 00028 CASEB (XAB), #18, #13 
OO1E 0099 008 0B 00 C 3$: WORD 35- $,- 
0082 00B2 008 06 00 $-3$.- 
00B2 00B2 008 008 0003¢c 12$-3$.- 

008 008 00044 4$-3$,- 
13$-3$,- 
13$-3$.- 
13$-3$.- 
13$-3$.- 
13$-3$;- 
13$-3$.- 
13$-3$.- 
13$-3$.- 
13$-3$.- 
13$-3$ 

11 00048 BRB 11$ 
9A 000A 4$ MOVZBL #3 (XAB) 12(F AB) 
9A OO4F MOVZBL 177(1FAB), RO 
91 00054 CMPB §(XAB) rb 
1F 00058 BLSSU ; 
3¢ A a 
1 F 3 
91 9 
1F 5 6 
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—— 


50 BSAC ef : 67 MOVZ2WL #34220, RO : 1064 
B ¢ BRB 73 heeds 
50 OA ! * 6$: CMP 10(XAB), RO ; 1066 
50 84B8C F 3¢ 0007 MOVZWL #33980, RO + 1068. 
0263 79 7$: BRW 5 : | 
09 ag 7C 8$: TSTB (XAB) + 1073 
05 1 7F BNEQ 38 : 
09 Ab 08 ab 1 MOVB (XAB), 9(XAB) + 1075 | 
0000v 00 9$ BSBW ger KEY_PARMS + 1088 | 
50 17 As A MOVZBL 23(RAB)> RO > 1089 
6440 7F 0 PUSHAG (KEY_TBL)CRO) F 
9 51 90 MOVB KEYSTZE, a(SP)+ : 
5 D1 9 CMPL §MAX_MINREC, MINREC + 1091 
18 3 BGEQ 108 : 
6E p 009 MOVL /MINREC, MAX MINREC + 1093 
02 A640 7F 00098 10$:  PUSHAQ 2 (KEY TBL)CRO : 1098 
9E 0 as 30 009F MOVB (XABY (SP) ; 
A440 7F OO0A3 PUSHAQ 3(KEY_fBL)CROJ + 1099 
9E 09 Ab 30 OOA7 MOVB  9(XABY a(SP)s : 
01 A440 7F OOOAB PUSHAQ 1(KEY_fBL)CRO) + 1100) 
9E ~ s 0 OOOAF MOVB 10(KAB), a(SP)+ 3 
4 A440 7F 0083 PUSHAQ 4(KEY TBL)CROJ + 1101 
9E 1A As 0 0008 MOVW 6(XAB), a(SP)+ : 
06 A440 7F 00088 PUSHAQ 6(KEY_TBL)CRO) + 1102 
9E 1C A6 BO O00BF MOVW B(XAB), a(sP)+ : 
19 11 90¢3 11$: BRB $ + 1050 
04 AE 01 00 000C5 128:  MOVL #1, AREA_FOUND > 1111 
50 17 A&B 9A 00069 MOVZBL g3{XAB), RO + 1112 
6045 16 Ab 90 000CD MOVB (XAB); (RO) CAREA_BKS) : 
58 16 Ab 08 0 FD 9008 CMP27V #0, #8, 22(XAB), BIG_BK + 1114 
4 00D BLEQ 3=s«138 ; 
58 16 A6 9A OOODA MOVZBL 22(XAB), B1G_BKS : 1116 
6 04 A6 DO OOODE 13$: MOVL  4(XAB), XAB + 1124 
FF38 31 OOOE BRW 1$ + 1040 
0c ag 0081 CA 9A OOOES 14$: MOVZBL 177(IFAB), 12(SP) + 1142 
5 01 ce O0EB MNEGL #1, AREANO : 1260 
0115 O0EE BRW 3a§ : 
59 D4 OO0F1 158 CLRL LAST BKS + 1146 
08 AF 00B2 cA A OOF 3 MOV2BL 178(TFAB), 8(SP) + 1150 
5 1 F OOF MNEGL #1, KEYNO + 1160 
00c OOFC BRW 318 ; 
02 A443 7F OOOFF 168 PUSHAQ 2(KEY_TBL)CKEYNO ; 
57 9E 08 0 FD 1 CMPZV #9 #8, a(SP)+, AREANO ; 
1 Bea. ~=—ésé 7G F 
03 A443 7F OO10A PUSHAQ 3(KEY_TBL)CKEYNO > 1161 
57 9E 08 Q FD 1 CMPZ7V #0, #8, a(SP)+, AREANO : 
F 11 BNEQ 248 ; 
5 6443 7 115 178: MOVAQ (key TBL)CKEYNOJ, RO > 1167 | 
0 0087 cA 91 0011 CMPB 18 (TFAB), #3 > 1165 | 
¢ 1€ 0011 BGEQU 183 F 
9A 1 MOVZBL (RO), RO + 1167 
52 1 1 ASHL #1, RO, MIN_BKS > 1168 
k ¢ 1 ADDL2 eh, miN_BK : 
60 A OO15C 188:  BOVZBL (RO), RO 2 113% 
52 3 1 78 0012F ASHL #1, RO, MIN_BKS : 1171 
| 


H 6 
RMSCREATE 16-Sep-1984 01:39:47 AX-11 Bliss-32 V4.0-7. 
VOe-080 CHECK_AREAS 18-808- 1382 9}: 1:18 YRMS. SRC RM CREAYE B3-34 
1E CO 00133 ADDL2 #30, MIN _BKS 
50 3 00000209 8F $ 136 198: sith: #18 MIR _BKS, RO 
1 Ap 1 MOVAB 1(ROS, min BK 
674 ; 14 S18 {AREANO) AREA_BKS) 
52 6745 08 09 FD 14 CRPIV i #8, (AREANO)CAREA_BKS], MIN_BKS 
14D BLSS 218 
19 04 Ae f 14F 208:  BLBS | AREA_FOUND, 23S 
—E A 153 TSTB ger ) 
14 1 1 é BEQL $ 
52 3E A 08 0 F 1 CMP2V #0 #8, 62(FAB), MIN_BKS 
: 136 BGEQ © 238 
oc ag 160 21$: MOVL KEYNO, 12(FAB) 
5 8784 ef C 00164 MOVZWL #34692, RO 
01 : 1 00169 328: BRW $ 
52 59 01 0016C 23$: CMPL LAST_BKS, MIN_BKS 
9 18 16 BGEO 4$ 
59 00 171 MOVL  MIN_BKS, LAST_BKS 
01 A443 7F 00174 24$:  PUSHAQ 1(KEY_TBL)CKEYNO) 
57 9E 08 00 €D 00178 CMP2V #0, #8, a(SP)+, AREANO 
4E 12 00170 BNEQ 318 
53 05 0017F TSTL KEYNO 
13 13 00181 BEQL 25$ 
6443 7F 00183 PUSHAQ (KEY_TBL)CKEYNO] 
50 9— 9A 001 MOVZBL a(SPJ+, RO 
50 00000200 8F C6 00189 DIVL2 #512, RO 
52 01 AO 9E 00190 MOVAB 1(ROS, MIN_BKS 
2F 11 00194 BRB 30$ 
07 04 AE £9 00196 25$: BLBC  AREA_FOUND, 26$ 
SE AA 6745 90 0019A MOVE § (AREANO) CAREA_BKSJ, 94(1FAB) 
05 11 0019F BRB 27$ 
SE AA 3E «AB O90 ota 68: MOVB  62(FAB), 94(IFAB) 
60 AA 8 O1A6 278: TSTW  96(IFABS 
06 13 001A9 BEQL g8$ 
7E 60 AA 3 001AB MOVZWL 9S6(IFAB), -(SP) 
02 11 OO1AF BRB 29$ 
6E DD 001B1 28%: | PUSHL MAX _MINREC 
7E 00B7 CA QA att 9$: MOVZBL 183TIFAB), -(SP) 
0000v 30 0018 BSBW  CHECK_MRS 
5E 08 CO 00188 ADDL2 #8 
As 9 01BE BLBC STATUS, 22$ 
5 SE AA 9A 001C1 MOVZBL 94(IFAB), MIN_BKS 
52 59 D1 001CS 30$: CMPL LAST _BKS, MIN~BKS 
03 1 o1¢8 BGEQ 1$ 
59 DO OOICA MOVL MIN_BKS, LAST_BKS 
02 53 08 AE F2 001CD 31$:  AOBLSS (SP), KEYNO,~32$ 
9 11 001D BRB 35 
FF 3 1D. 328: BRW 16$ 
674 107 33$:  TSTB § (AREANO) CAREA_BKS) 
06 12 OO1DA BNEQ  34$ 
6745 9 1p move AST_BKS, (AREANO) CAREA_BKS) 
59 6745 08 3 t IE 34$: CMPZV #0, #8, (AREANO)CAREA_BKS], LAST_BKS 
6745 95 OO1EA 35$: TSTB § (AREANO) CAREA_BKS) 
OF 1 1ED BNEQ 7 
08 04 AE €E9 OOTEF BLBC  AREA_FOUND, 37% 


Se See Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Be Ge Se Se Se Se Ge Se Se Se Se Ge Se Se Se Se Fe Se Se Se Se Se Ge Se Se Se Se Se Be Se Ge Ge Se Fe Be Se Fe Se Be Se 
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tt 


RMSCREATE 16-Sep-1984 9:47 AX-11 Bliss-32 V4.0-74 Page 36 
yOes080 CHECK_AREAS 1 ~8ep-1984 9}: tt 1:18 RMS. SRCIRMSCREATE.B32; . Rid 
oc A 7 pO OO1F3 368: mov AREANO, 12(FAB) : 1283) 
5 8424 i te Hi Rov UL aystcs 6 : 1386 
59 i D1 1 37$ cHPL 19. BKS, LAST_BKS ; 1289 
D MOVL AST_BKS, 81G_BK : ! 44 
02 8 oc A 38$: AOBL SS ign AREANO, os : 1 
FE }} 398 BRW 15$ : | 
B ( 0 10 40$ STL 6B g. BKS + 1300 
6 1 BNEG 4 : 
SE AA 3 AB 9 1 MOVB $ (FAB), 94(1FAB) : 1303, 
60 «AA a 19 TSTW we + 1305 
06 1¢ BEQL 418 : 
7E 60 AA 3¢ 00 1 MOVZWL iss , =(SP) : 1307 
02 11 00 BRB 42$ : 
6E DD 00224 418 PUSHL MAX_M + 1309 
7E 0087 CA 9A 0 6 42$ MOVZBL 1837 TBS -(SP) : 
0000v B BSBW CHECK MRS : 
5E 9 CO 002cE ADDL2 SP : 
7F f 0231 BLBC STATUS 50$ ; 
58 SE AA 9A 00 MOV ZBL St CIPAB) B1G_BKS + 1310 
8 11 00 BRB 44$ : 1300 
3E A B 90 0023A 435 MOVB B1G_BKS, 62(FAB) + 1314 
SE OA 5B 90 00 MOVB BIG BKS, 94(IFAB) + 1315 
5B D5 00242 44$ TSTL B1G- “BKS : 1318 
OA 12 0024 BNEQ 4537 ; 
AB ps 0246 CLRL Ve<F AB) + 1321 
50 B41C BF 3C 00249 MOVZWL #33820, RO : 1322 
63 11 0024 BRB 503 ; 
53 00B2 CA 9A 00250 45$ MOVZBL 178(IFAB), R3 : 1329 
50 g1 cE 0025 MNEGL #1, KEYNO : 1332 
B 11 00258 BRB 51§ ; 
0c AB 50 00 0 2A 46$ MOVL §KEYNO, 12(FAB) ; 
02 As40 7F 00 PUSHAQ 2(KEY TBL) EREYNO) : 1338 
51 i 9A 0026 mOVZ seer R1 : 
03 A440 7F 0026 PUSHAG 3(KEY BL) CKEYNO ; 
52 9 9A 00269 MOVZBL a(SP)F, R2 : 
624 6145 91 00 $¢ CMPB (R1)CAREA_BKS], (R2)CAREA_BKS) ; 
07 13 00271 BEQL 48$ ; 
50 877¢ BF 3c 00 i MOVZ2WL #34684, RO + 1340 
65 11 00278 47%: BRB 55$ ; 
1 614 9A 7A 48$: MOVZBL (R1)CAREA_BKS), R1 : 1346 
51 1 09 8 0027 ASHL #9, RI : 
04 A440 7F PUSHAQ 4(KEY_fBL)CKEYNO) ; 
51 9€ 10 9 : CMPZV #9 #16, a(SP)+, R1 ; 
BLEQ = 498 
50 8764 af ¢ MOV ZL #34660, RO : _ 
01 aude 7F 49$:  PUSHAQ (KEY BL) CKEYNO3 : 1350 
1 9€ 9A 00298 MOV ZBL a(sP)t. : 
1 614 9A 98 MOVZBL (R1)CAREA as). R1 ; 
51 1 09 78 0029F ASHL #9, R1, R ; 
06 A440 7F OOOA PUSHAQ 6(KEY_ fBL)CKEYNO) ; 
51 9€ 10 FD A CMPZ7V. #0, #16, a(SP)+, RI : 
AC B.eo 60S s«S1§ ; 
50 876C BF 3C OO2AE MOVZWL #34668, RO : 1352 
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RMSCREATE 1b-se -1 39:47 AX-11 BLiss-32 V4.0-74 Pa 7 RM 
tae ts CHECK_AREAS 1 ~30071 38? OF 3r ith RMS. SRCIRM ChE AYE O30, - (35 vo 
1 8 : BRB 55$ g 
Al 50 g f 53 9: AOBLSS R3, KEYNO, 46$ 31 29 
g¢ AB OD 8 CLRL (FAB) + 1355 
A MOVL FAB), XAB + 1361 
56 8 ( 
o00dv £3 52e: TG CREPROBE : 1s 
17 98 ¢ BLBC ais 5$ : 
2 88 42 90568 gNES he —_— 
50 17 ag aA CD MOVZBL (XAB), RO : 1370 
16 Ab 604 D1 MOVB  (RO)CAREA_BKS], 22(xAB) : 
56 04 Ab p D6 53%: MOVL (XAB), XAB : 1371 
DA BRB : 1363 
50 1 06 dC 548: MOVL #1, RO + 1374 
E 0¢ OF 55$: ADDL2 #ié, sP + 1375 
ABC BF BA O02E POPR #*M<R2,R3,R4,R5,R7,R9,R11> : 
0 8 0 3 5,.R7,R9,R11 
5 002€ RSB ; 


; Routine Size: 743 bytes, Routine Base: RMSRMSMISC + 04C8 
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CHECK _DENSE 
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K 6 
16-Sep AX-11 Bliss-32 V4.0-74 
14-Sep 71382 9}: dts YRMS. SRCIRMSCREAYE. 832; 
ZSBTTL ‘CHECK DENSE’ 
ROUTINE CHECK_BENSE (BITS_MASK) : RLSCHECK_DENSE = 


CHECK =PEWse 
This soutene determines if the key and area XABs are dense 
or not. 


CALLING SEQUENCE: 
CHECK_DENSE (BITS_MASK) 


INPUT PARAMETERS: 
BITS_MASK = Bit mask address for XABs 


IMPLICIT INPUTS: 
None 

OUTPUT PARAMETERS: 
None 

IMPLICIT OUTPUTS: 
None 


ROUTINE VALUE: 
IMX error = XABs are not dense 
SUCCESS = XABs are dense 

SIDE EFFECTS: 
None 


BEGIN 


CAL 
TOTAL BITS, 
FLD_STZE, 
= NUM 


TOTAL BITS = 255; 
FLD_STZE = 32; 
BIT_NUM = 0; 


: Loop until we find the first bit clear in the given field. 


watLs FFC ( BIT_NUM, FLD_SIZE, .BITS_MASK, BIT_NUM ) 
BEGIN 
: None found, compute number of bits left to search 
FLD_SIZE = .TOTAL_BITS - .BIT_NUM; 
J -FLD_SIZE EQL 0 
RETURN RMSSUC (); 


6 
wet SHRR AUBTAD Heh WBSAERE AE B08 


7 
RMS .SRCIRMSCREATE .B32; 


1 
CHECK _DENSE 1 


Ww 


IF .FLD_SIZE GTR 32 
TH 


FLD_SIZE = 32; 
END; ! end of WHILE loop 


! There was a clear bit found. Calculate number of bits left to search. 
! Add one to BIT_NUM since we do not want to search that one again. 


T_NUM = .BIT_NUM + 1; 
D7SIZE =". TOTAL_BITS = .B1T_NUM; 
1 


the clear bit was the last one, then we know the xabs are dense. 


> 1 


if pfup size EQL 0 
RETURN RMSSUC (); 
IF .FLD_SIZE GTR 32 
THEN 
FLD_SIZE = 32; 
Loop until we find the first bit set in the given field. 


we FFS ( BIT_NUM, FLD_SIZE, .BITS_MASK, BIT_NUM ) 
BEGIN 
None found, compute number of bits left to search 
FLD_SIZE = .TOTAL_BITS = .BIT_NUM; 
If there are not bits left, then the xabs are dense. 


PARED BB BE EE PAA 
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IF .FLD_SIZE EQL 0 
RETURN RMSSUC (); 
IF .FLD_SIZE GTR 32 


FLD_SIZE = 32; 
ND; ! end of WHILE Loop 


If we are here, then the key or area xabs are not dense. 
RETURN RMSERR (IMX); 
END; 


ee a aa ka aed at = as = a = = = 4 8 = = = as — as as — as — 4 so 1 
bt et wt 4 
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52 DD 00000 CHECK_DENSE: 
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RM3CREATE 16-Sep-1984 9:47 AX-11 Bliss-32 V4.0-74 Page 40 
VOz-0B0 CHECK _DENSE 12: =Sep- 1382 9}: 3%: :18 RMS. SRCIRM CREATE “B35, 9° 10) 
PUSHL R : 1377 
FF OF 9A 0 0 MOV ZBL #855, 1 TOTAL_BITS + 1415 
0 7D MOV #32, FLD_SIZE : 1418 
51 08 BE 31 F 0 0s 1$: FC BIT.N UM. “FLD_SIZE, @BITS_MASK, BIT_NUM + 142 
50 52 51 ¢ 1 SUBL3 BIT_NUM, TOTAL_BITS, FLD_SIZE : 1428 
e8 1 1 BEQL $ + 1430 
20 D1 0001 CMPL  FLD_SIZE, #32 + 1434 
ED 15 OOO1A BLEO \§ : 
50 0 0 0001C MOVL #32, FLD_SIZE + 1436 
8 11 OOO1F BRB 1$ + 1422 
1 0 00 | 2$: INCL. BIT_NUM : 1448 
50 52 1 ¢3 000 SUBL3 BITINUM, TOTAL_BITS, FLD_SIZE + 144 
18 13 00027 BEQL 486 S$ + 1448 
20 50 Di 00029 3$ CMPL FLD_SIZE, #32 + 1452 
03 15 0002c BLEQ 4$ ~ ; 
50 20 DO 0002E MOVL #32, FLD_SIZE + 1454 
$ K, NU s 
51 08 BE 50 1 EA 00031 4$ FFS BIT_NUM."FLD_SIZE, @BITS_MASK, BIT_NUM 1459 
0B le 00037 BNEQ 6$ ~ : 
50 52 51 C3 00039 SUBL3 BIT_NUM, TOTAL_BITS, FLD_SIZE + 1465 
EA if 0003p BNEQ 3$~ + 1470 
50 01 00 O003F S$ MOVL #1, RO : 1472 
05 11 00042 BRB 7$ : 
50 856C BF 3C 00044 6S: MOVZWL #34156, RO : 1481 
04 BA 00049 7$: POPR #*M<R2> + 1483 
05 00048 RSB : 


; Routine Size: 76 bytes, Routine Base: RMSRMSMISC + O7AF 


3 1429 1484 1 
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CREATE 16-Sep-1984 01:39:47 AX=-11 Bliss-32 V4.0-74 P 41 
“60 CHECK _INPUT 13288b-1 382 $ybti ta RMS.SRCIRM CREAYE. 83271 29) 
ZSBTTL. ‘CHECK INPUT’ 
ROUTINE CHECK_INPUT ( BITS_MASK; PROLOGUE ) : RLSCHECK_INPUT = 


ea 


= 
uw 


oa 
o 


CHECK_INPUT 


This routine performs input checks specific to indexed sequential 
files. Among these are: 
- record formats allowed: VAR and FIX (UDF only if BIO access) 
- legal bucket size (0<=BKS<=BKT$C_MAXBKTSIZ) 
= key XAB checks 
= correct XAB length 
valid key of reference 
valid key size 
last key character cannot be larger than minimum record size 
data type is within range 
check flags on primary key: CHG and NUL not allowed 
} 


se 


WN “SO ODNAUES WN (OO OOBNOUE WN "OO OONOUS Wh 
CONIA EWP OO DONO 


woowowowowvowowvowd 


- area XAB checks 
- correct XAB Length and readable 
- valid area identification number 
= legal bucket size 

- both key and area XABs must be dense 

- there must be a primary key 


CALLING SEQUENCE: 
CHECK_INPUT ( BITS_MASK; PROLOGUE ) 


INPUT PARAMETERS: 
Bits mask address 


IMPLICIT INPUTS: 
FAB - address of user's file ac 
IFAB - address of internal RMS f 


OUTPUT PARAMETERS: 3 
PROLOGUE - prologue version number 


Sl te te ta el ak Dak Del al al al Sak Sek el Sal al ak lal lal ale al ak al et ee 


o 
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cess block 
ile access block 


SAS 


IMPLIC 


baa naa aa eas ed) 


“AVBN) - # of prologue VBN 
f area XAB 


- { 
FAB CFABSW"DEQ) - if area XAB 
ROUTINE VALUE: 
RFM,BKS,IMX,REF, 
SEG,AID, IBK,KSI, 


SIDE EFFECTS: 
none 
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RM3CREATE 16-s¢ 1984 01:39:47 VAX=11 Bliss-32 V4.0-74 pene 6 
VOesOB0 CHECK INPUT ereent Re Oba tg HANS Aes isscae aye B35: age 448 


3 188 1 rk 1 

3 be 154 BEGIN 

3 14 1544 

3 1491 1545 EXTERNAL REGISTER 

3 1388 1 rk OMMON_FAB_STR 

> 149 154 AB = 6 : REF BBLOCK; 

3 1494 1548 

3 1495 1549 ' Must be a valid record format for indexed seq files. If undefined 

: 1496 1550 ' record format, the BIO access bit must be on. 

3 1497 132) ! 

: 1498 1 26 

3; 1499 155 IF .IFAB CIFBSB_RFMORG) GTRU FABSC_VAR 

; 1500 1554 THEN 

3; 1501 1555 RETURN RMSERR (RFM); 

g 1286 1238 

: 150 155 IF .IFAB CIFBSB_RFMORG) EQL FABSC_UDF 

3 1504 1558 AN 

3; 1505 1559 NOT .FAB CFABS$V_B10) 

3: 1506 1560 N 

; 1507 1561 RETURN RMSERR (RFM); 

; 1508 1368 

; 1509 156 ! Bucket size cannot be Larger than BKTSC_MAXBKTSIZ blocks 

3; 1510 1564 ! 

3 1511 1565 

; 1216 1206 IF .FAB CFABSB_BKS) GTRU BKTSC_MAXBKTSIZ 

3 1514 1568 RETURN RMSERR (BKS); 

3; 1515 1569 

3; 1516 1570 § IFAB CIFBSB_BKSJ = .FAB CFABSB_BKS); 

3; 1517 1571 

; 1518 1376 2 ' Now do checks on KEY and AREA XABs. 

3; 1519 157 ! 

; 1520 1574 

3; 1521 1575 BEGIN 

3; 15 ¢ 1576 

3; 15 1577 LOCAL 

: 1526 1578 KEY_BITS REF BITVECTOR £$262. 

: 1525 1579 AREA BITS REF BITVECTOR 56], 

: 1526 1580 AREAS, ' # of area XAB's 

3 1362 133! KEYS; ! # of key XAB's 

; 1829 1888 KEYS = 0; ! initialize them 

> 15 1584 AREAS = 0; 

: 1 1 138? : 

3 1 § 1586 CLEAR ( .BITS_MASK, 64 ); ' clear bit mask 

: 153 1587 KEY_BITS = .BITS_MASK; 

; 1534 1588 AREA_BITS = .BITS_MASK + 32; 

3 1332 1289 AB = .FAB CFABSL_XAB); ! get start of chain 

: 1337 1591 WHILE .XAB NEQ 0 

; 1538 139¢ 

; 1539 159 

3; 1540 1594 4 BEGIN 

> 1541 1595 4 

3 1366 1596 4 ' Make sure we can read and write user's XAB. Save XAB address | 

3; 154 1597 4 ' in status value field (STV) to be returned in case of error. 

3 15446 1598 4 : | 
| 
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RM3CREATE 1b-s -1984 01:39:47 AX=11 Bliss-32 V4.0-76 p 43 
v04- CHECK_INPUT 127808- 1382 OF arte YAMS SROIRMECREATE B3o 04 at at he 
45 RETURN_ON ERROR ( REPROBE() ); | 
re FAB CFABSC_STV] = .XAB; 


CASE -XAB CXABSB_CODJ FROM XABSC_DAT TO XABSC_TRM OF 


CXABSC_KEY] : ' key XAB 
BEGIN 


G 
Check that XAB Length is at least eaua' o minimum 


IF .XAB CXABSB_BLN] LSS XABSC_KEYLEN_\2 
RETURN RMSERR (XAB); 
FAB CFABSL_STV] = .XAB CXABSB_REFJ; 


PUP AASIVIVIVIIVIIVIT ES 
WONAULS WOO 
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If more than 255 keys, return error 


i ae CXAB$SB_REF] EQL 255 
RETURN RMSERR (REF); | 
BEGIN 
CAL 
KEYSIZE, | 
MINREC, 
SEGS; 

GET_KEY_PARMS (;KEYSIZE, MINREC, SEGS); 

RETORN_ON_ERROR ( CHECK_KEY_PARMS ( .KEYSIZE, .MINREC, .SEGS ) ); 

Set key buffer size, using the size of the longest key 
| 
| 
| 


AME WN SO DOONAN WN | O OONAUE AN" OOONAUS WN OO 


00 9000009 00 SINS SSSA AA AAAAAO 
BS ENAAAWW NMI AAAI AIPIPIPIPINPININONINIDS 2 2 OO OO MM QOOOOOOCOCOCON 


DUP PVP PUL SIUPU PULLS LVS SUSU SUSI SUSUSISLT SISSY 


ab etedadadatadmiatatadadatatatbatabadaiatdadatatadetiuatastuataiwiadadtiabatababababatad dab ababmabiubabababatabababababad 
abebabatabababehabaubahubabababababebabat Bahabeiciabah ahah ahahababehchababababababahababababahabaiahbabababaial 


Ba Be Se Oe Be Se Se Se Se Ge Se Se Be Se Fe Se Se Ge Se Se Ge FH Se Se FH Se Se Se Ge Ge Ge Se Se Ge Ge Se Se Se FH Se SF Se Se Se SESH se HSH Se HSH Se SESH SH es 


i i cKEVSIZE<O, 8> GTRU .IFAB CIFBSW_KBUFSZ) 

H IFAB CIFBSW_KBUFSZ] = .KEYSIZE; 
af 1 Get the prologue number from the primary key XAB. 
389 28 | 
590 44 IF .XAB CXABSB_REF] EQL 0 
591 45 THE 
236 46 BEGIN 
59 47 
594 8 IF .XAB CXABSV_CHG] OR .XAB CXABSV_NUL] 
595 9 THEN 
4 50 RETURN RMSERR (FLG); 
59 51 RETURN_ON_ERROR ( FIND PROLOGUE ( .SEGS; PROLOGUE ) ); 
598 2¢ END; 
599 5 
on 32 END; ! end of def of KEYSIZE, MINREC, SEGS 


eS eee = » — 
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RM3CREATE 16-Sep-1984 01:39:47 AX-11 Bliss-32 V4.0-74 Page 44 
Nee CHECK_INPUT 12-Sep-19 4 of: 1:18 VANS SREIRAECREAYE O32 4 ° (11) 
31 16 ' If prolog 1 defined, decide if prolog 2 is required. | 
: 1608 1 j If protog prolog q | 
; 1605 1658 IF .XAB CXABSB_DTP] NEQ XABSC_ STG 
; 160 1660 ; AND -PROLOGOE EQL PLGS$C_VER_NO | 
: 1608 1666 PROLOGUE = PLG$SC_VER_IDX; 
: 1610 1664 ! One more key has been defined. Set corresponding bit 
: 1611 1665 i in mask. | 
: 1618 186? KEYS = KEYS + 1; | 
; 1616 1668 KEY_BITS € .XAB CXABSB_REF] J = 1; 
: 1ei8 1929 ? END; ! of key XAB processing 
: 1618 1678 4 CXABSC_ALL) : ! area XAB 
wm ORY — 
: 16 1 1675 3 IF .XAB CXABSP_BLN] LSS XABSC_ALLLEN 
3 16 § 1677 3 RETURN RMSERR (XAB); | 
: 16 3 1679 ; FAB CFABSL_STV] = .XAB CXAB$B_AID); | 
: 1687 ts 5 IF .XAB CXABSB_AID] EQL 255 | 
: 16 3 1688 3 RETURN RMSERR (AID); | 
; 1631 1685 IF. XAB CXAB$B_BKZ] GTRU BKTSC_MAXBKTSIZ 
; 1638 1687 é RETURN RMSERR (BKZ); 
: 1635 1689 2 ' first area XAB overrides FAB values 
1839 1601 8 
> 1638 169 5 IF .XAB CXABSB_AID] EQL 0 
: 1820 1692 3 THEN EGIN 
> 1641 1695 6 FAB CFABSL_ALQ] = .XAB CxABSL AL]; 
; 1649 1696 FAB CFABSW DEQ] = .XAB CXABSWDEQJ;: 
1 oe 
> 1645 1699 AREAS = .AREAS + 1; 
: 1646 1700 AREA_BITS C .XAB CXABSB_AID] J = 1; 
; 1oe8 1708 ? END; ' of area XAB processing 
: 1650 1704 4 INRANGE) : 0; 
: 1651 17 5 4 OUTRANGE) :0: 
21 ae rs: 
; 1655 1708 4 KAB = .XAB C[XABSL_NXT); 
: 1889 1711 3 END; ! end of WHILE XAB check Loop 
; 1658 1712 
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v04 CHECK_INPUT 14-Sep-19 4 9}: 1:18 LaMS .SRC RMSCREATE .B32; 

; 1659 1713 ! If we are creating with block 1/0 and no record 1/0 at all, make sure : 4 
: 1660 1714 ' there is at least a primary key defined. 3 ¢ 
3; 1661 1715 : : 

; 1996 1718 ; 

: 166 171 4 If NOT ( .FAB CFABSV_B10] AND NOT .FAB CFABS$V_BRO] ) : 

; 1eee 1718 AND .KEYS EQL 0 ; 

; 1665 171 | 
; 1666 1720 RETURN RMSERR (NPK); 3 4 
; 166 1721 3 4 
; 1668 17 § ! Get key XABs density. : 4 
3 198? 17 : : ¢ 
:; 1670 1724 3 ¢ 
; 1671 1725 4 BEGIN $ 4 
; 2 17 $ 4 $4 
: 167 17e7 4 LOCAL 3; ¢ 
3; 1674 1728 4 STATUS; 3 4 
; 1675 1729 4 3 ¢ 
; 1978 4 , 2 ! Set the STV to the XAB address for *tnon-dense’’ XAB error. 3 4 
3 : 34 
; 1678 17 ; 4 FAB CFABSL_STV) = .FAB CFABSL_XAB); 3 4 
3 1b 24 1734 ? STATUS = CRECK_DENSE (.KEY_BITS); 3 4 
; a | 
: 1681 1735 4 ! If the keys are not dense, find out if there is a primary key. : ¢ 
3 be 17 $ 4 ! If not there, return ‘'no primary key'’ error. 3 4 
: 168 17 4 ! 3 6 
3; 1684 1738 4 3 ¢ 
> 1685 1739 4 IF NOT .STATUS 3 ¢ 
> 1686 1740 4 THEN 3 
: 1687 1741 3 BEGIN $4 
; 1688 1oee | 
3; 1689 1745 5 IF .KEY_BITSCO] EGL 0 3 4 
: 1690 1744 5 | 
3; 1691 1745 § STATUS = RMSERR (NPK); 34 
; 1698 irae 5 RETURN .STATUS; 2 ¢ 
> 169 1747 & END; 24 
3; 1694 1748 3 END; ! end of STATUS definition 2 ¢ 
3: 1695 1749 | 
3 1098 1750 a | 
:; 169 1751 ! If no areas defined, default to one. Else, make sure the area 2 ¢ 
; 1698 1736 ! XABs defined are dense. Set maximum number of areas, and total 3 ¢ 
3 i 344 175 ' number of keys. 4 
; 1700 1754 ! 3 4 
; 1703 1586 IF .AREAS EQL 0 : | 
1508 1789 THEN 3 
3; 1704 1758 AREAS = 1 3 4 
; 1705 1759 ELSE 3 4 
5 1708 1769 RETURN_ON_ERROR ( CHECK_DENSE (.AREA_BITS) ); 2 ¢ 
: 1708 1762 IFAB CIFBSB_AMAX) = .AREAS: : 
> 1709 176 IFAB _CIFBSB-NUM_KEYS) = .KEYS; ‘Zz 
3 ini? 17ee FAB CFABSL_STVJ~= 0; 3 
3 Har 1768 ! Determine minimum number of VBN's to allocate for prologue and force it 3 
3; 171 176 ; 2 4 
3 1716 1708 & BEGIN 3 4 
3 1715 1769 4 3 4 
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v04 CHECK_INPUT 1ex8eb-1984 VS:01:16 — EAMS SREIRASCREATE .03071 ort | vol 
: 171 1770 4 CAL 3 | 
; 11? 44 4 MIN_ALLOC; | ; 
; 1118 1778 4 MIN_ALLOC = ( (.AREAS + 7) / 8) +14 ( (KEYS + 3) / 5); | : 
: 1721 1775 4 ' Save this value in area VBN because it is the number of VBNs : 
: 17 ¢ 1726 2 } used by the prologue. : 
1724 1778 4 iFAB CIFBSB_AVBN] = .MIN_ALLOC; : 
: 1726 1780 4 IF, -MINALLOC GTRU .FAB CFABSL_ALQ] : 
; 7 8 1786 4 FAB CFABSL_ALQ) = .MIN_ALLOC; ; 
; 7 9 1784 END; ! end Local definition of MIN_ALLOC ; 
: 17 ¢ 17e8 ' Now that FAB (DEQ) has been defaulted from first area XAB if one, ; 
; i A LA default IFAB [DEQ] and IFAB CRTIDEQ). : 
: 1735 1789 FAB CIFBSW_DEQ] = .FAB CFABSW_DEQI; ; 
: 1736 1790 IFAB CIFBSWRTDEQ) = .FAB CFABSW_DEQ); : 
3 4 ; 1736 END; ! end local definitions of AREAS, KEYS, and others . 
: 1740 1794 RETURN RMSSUC(); ! everything checked out correctly 
> 1761 1795 
: 1742 1796 1 END; | 
3C BB 00000 CHECK_INPUT: 
PUSHR  #*M<R2,R3.R4,R5> > 1486 
5 0c ¢2 0000 SUBL2 a : 
0 50 AA 91 0000 CMPB. ss BOC IFAB), #2 : 1553 
0A 1A 00009 BGTRU 1 ; 
50 AA 95 0000B TSTB = 80( FAB) : 1557 
: 1 000 BNEQ $ : 
07 16 AB 5 001 BBS a3 32(FAB) 2$ : 1559 
50 8664 BF 3C 00015 1$: MOVZ2WL #34404, RO : 1561 
78 11 OOO1A BRB ; 
3F 3E AB 91 O00IC 2s: CMPB $ (FAB), #63 > 1566 
7 18 09 BLEQU ; 
50 841C BF 3C¢ MOVZWL #33820, RO > 1568 
6B 11 90 BRB : | 
SE AA 3E AB 90 9 3$: MOVB 62(F AB) 94 (IF AB) : 1570 
4 7C 000 CLROQ fete § : 1384 | 
7E 40 8F 9A 000 MOVZBL -(SP) > 1586 | 
24 =A p 0 PUSHL ich al"ASk ; | 
009 v 0 7 SBW : 
C A ADDL2 ; 
04 AE 20 AE DO 000 MOVL ae SMASK, KEY_BITS : 1587 
08 AE 20 AE 20 C1 04 ADDL3 Bits giask: AREA_BITS : 1588 
56 24 AB OD 4 MOVL 360FA RAB : 1589 
03 1 O04¢ 4$: BNEO > 1591 
00E4 31 O004E BRW 3, ; 
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4g 1 XSBTTL. "CHECK_KEY_PARMS' 

¢ ROUTINE CHECK"KEY-PARMS ( KEYSIZE, MINREC, SEGS ) : RLSCHECK_KEY_PARMS = 
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oe 


CHECK ~KEY. PARMS 
$ routine validates key size, and sets the value in the XAB if 
it ues not defined for binary and integer types. 


CALLING SEQUENCE: 
CHECK_KEY_PARMS ( KEYSIZE, MINREC, SEGS ) 


INPUT PARAMETERS: 
KEYSIZE = number of charecters in key 
MINREC = minimum record 
SEGS = number of segments 


IMPLICIT INPUTS: 
- address of XAB to process 
IFAB address 


PPP PPP PPP RRR RRR ERE eT 
par ee Sar er er ee er ee 


SSVOSAEANSSSHIFE ALAR IS SSISA 


tees eS 
ROUTINE VALUE: 
RO : Success or ( SEG, SIZ, DTP, POS ) error code 


SIDE EFFECTS: 
KAB CXAB$B_S1Z0] filled in if it was 0. 


BEGIN 


ale wT ae 
xAB = & : REF BBLOCK; 


! If more than one segment, and key data type is not string, then 
' return error. 
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If .SEGS GTRU 1 
nes CXABSB_DTP] NEQ XABSC_STG 
RETURN RMSERR (SEG); 
: Validate key size depending on data type 


ae Ve CXABSB_DTP] FROM XABSC_STG TO XABSC_MAXDTP OF 
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CHECK_KEY_PARMS 


CXABSC_STG): 
IF .KEYSIZE EO, 0 
OR .KEYSIZE GTRU 255 
RETURN RMSERR (SIZ); 
CXABSC jN2. XABSC_BN2) : 


EG] 
IF .KEYSIZE EQL 0 
THEN 


BEGIN 
KEYSIZE = 2; 
XAB- XAB$B_$120) = .KEYSIZE; 


—> 


MEUM —O OOBNOAOUES WN —OOONOAUE wn 


i XS YSIES NEQ 2 
RETURN RMSERR (SIZ); 
END; 


CXABSC_ING, XABSC_BN4J : 
IF .KEYSIZE EQL 0 
THEN 


BEGIN 
KEYSIZE = 4; 
XAB XAB$B_$120] = .KEYSIZE; 


00 00 CD CD CD CD CD: 
Co C000 Co ~~ 


if pXOvSize NEQ 4 
- RETURN RMSERR (SIZ); 


CXABSC_PAC] : 
IF~.KEYSIZE GTRU 16 
OR .KEYSIZE EQL 0 
RETURN RMSERR (SIZ); 
CXABSC_IN8, KABSC_BN8) : 


EG] 
IF .KEYSIZE EQL 0 
THEN 


OU oe 


WO USWwIN OO 
SS3ssz 


FLELELESES 


BEGIN 
KEYSIZE = 8; 
KAB XAB$B_5120) = .KEYSIZE; 


IF_.KEYSIZE NEQ 8 
THEN 
RETURN RMSERR (SIZ); 
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COUTRANGE) : 
RETURN RMSERR (DTP); 
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string data type 


2-byte integer or binary 


4-byte integer or binary 


packed decimal st 
max size is 31 ni 


8-byte integer or binary 


illegal data type 


S32 
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“000, —_CHECK_KEY_PARMS IESeoc}90e SU:HR:4Z Yat DABhAnacBBstt- 8304 
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we 18 = 

:1 ¢ 1915 ! If the minimum record value calculated by GET_KEY_PARMS equals 0, 
3 3 a ! then the key must have been a binary or integer with 0 Length. 

: } ¢ 131 } Set MINREC correctly now that the keysize is known. 

:1 1318 

3 ; Y it, -MINREC EQL 0 

; 1879 19 : MINREC = .KEYSIZE + .XAB CXAB$W_POSO); 

> 1871 1924 ! Make sure that th i d size defi i h 

; 187¢ 1958 i pers 7 ony e@ maximum record size defined by user is enough to 
3; 187 19 § { 

3: 1874 19 

3; 1875 1928 IF .IFAB CIFBSW_MRS] NEQ 

; 1378 4 AND .MINREC GTRU .IFAB IFBSW_MRSJ 

: 187 1931 RETURN RMSERR (POS); 

3; 1879 1336 

; 1880 193 RETURN RMSSUC(); 

; 1881 1934 

; 1882 1935 1 END; ! end of CHECK_KEY_PARMS 


52 DD 00000 CHECK_KEY_PARMS: 
POSHL 


R2 
01 53 D1 0000 CMPL SEGS, #1 
0c 48 0000 BLEQU 1$ 
13 A6 95 00007 TSTB 19(XAB) 
g? 13 OO00A BEQL 1$ 
50 8794 F 3¢ 0000C MOVZWL #34708, RO 
6B 11 00011 BRB 13$ 
07 00 13 ag 8F 00013 1$ CASEB = 19(XAB), #0, #7 
0036 0026 0026 001 48h 2s -WORD 3$-2$,- 
0051 0051 0046 0036 0020 rt i 
6$-2$,- 
6$-2$,- 
8$-2$,- 
9$-2$.- 
9$-2$ 
50 84E4 ; 
17$ 
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1 1384 9}: 9:47 AX=11 Bliss-32 V4.0=<74 
CHECK _MRS 1 1984 13:01:18 RMS. SRCIRMSCREATE .B32; 


; 1884 19 § 1 ZSBTTL ‘CHECK_MRS' 

: 1352 13 ! ROUTINE CHECK_ARS ( PROLOGUE, REC_SIZE ) : RLSCHK_AND_REPROBE = 
§ 1889 19 § 1 !4¢ 

; 1888 1940 1! 

: 1889 1941 1 ! CHECK_MRS 

; 1890 1306 1! 

; 1891 1945 1! This routine checks that the record size given fits in a bucket, 
: 1838 1944 1! and calculates the minimum bucket size if not specified by 
3; 189 1945 1! the user. 

3; 1894 Ieee 3 

3; 1895 1947 1 ! CALLING SEQUENCE: 

3; 1896 1946 1! CHECK_MRS (PROLOGUE, REC_SIZE) 

3; 1897 1949 1! 

3; 1898 1950 1 ! INPUT PARAMETERS: 

; 1899 1951 1! PROLOGUE : projogue version 

; 1900 1326 7s REC_SIZE : Maximum Record Size given by user or 
: 130) 1337 : Minimum record size calculated using key size/position 
3; 190 1955 1! IMPLICIT INPUTS: 

3: 1904 1956 1! XAB - address of XAB to process 

3; 1905 1957 1! FAB - address of file access block 

3: 1906 1958 1! IFAB - address of internal FAB 

3; 1907 1959 1! 

: 1908 1960 1 ! OUTPUT PARAMETERS: 

3; 1909 1961 1! None 

3; 1910 1366 1! 

3 1911 1965 1! IMPLICIT OUTPUTS: 

3; 1912 1964 1! IFAB CIFB$B_BKSJ 

3 1913 1965 1! 

3 1914 1966 1 ! ROUTINE VALUE: 

3 1915 1967 1! RO : MRS error if record does not fit in bucket 
: 1916 1968 1! 

3: 1917 1969 1 ! SIDE EFFECTS: 

; 1918 1970 1! none 

3 1919 1971 1! 

: 1920 1976 1 !-- 

: 1921 1973 1 

: 1956 1974 BEGIN 

3 192 1975 

3: 1924 1976 EXTERNAL REGISTER 

3: 1925 1977 2 STR 

> 1926 1978 R-IFAB_STR, 

: P44 1327 ; XAB = 6 : REF BBLOCK; 

: 196) 1981 ! If the user did not specify a bucket size, define a maximum size 
; 1930 1956 ' to make sure MRS will fit. 

3 1931 198 : 

: 1338 1984 BEGIN 

3 193 1985 

3 1934 1986 LOCAL 

: 1935 1987 BUCKET_SIZE; 

: 1936 1988 

: 193 1989 IF .1FAB CIFB$B_BKS) EQL 0 

; 1938 1990 THEN 

; 1939 1991 BUCKET_SIZE = BKTSC_MAXBKTSIZ 

: 1940 1992 SE 
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p=1986 15:01:18 — ERMS.SRCIRASCREATE- 832; 


BUCKET_SIZE = .IFAB CIFBS$B_BKS); 
! Decide if record ptze will fit in bucket. 


' 
! For prologue les, we have to consider all possible overhead due to 
= compression. Only do these calculations if record size does not equal 0. 
IF .REC_SIZE NEQU 0 
THEN 
BEGIN 


LOCAL 
BYTES_IN_BKS; 


IF .PROLOGUE LSSU PLGS$C_VER_3 
THEN 
BEGIN 


BYTES_IN_BKS = ( .BUCKET SIZE * 512 ) = BKTSC_OVERHDSZ - 1 - 
IRCSC_FIXOVHBSZ; ! <1 for check byte at end 


4 ree CIFBSB_RFMORG] EQL FABSC_VAR 
BYTES_IN_BKS = .BYTES_IN_BKS = (IRCS$C_VAROVHDSZ = IRCS$C_FIXOVHDSZ); 
ELS 
BYTES_IN_BKS = ( BUCKET SIZE * 512 ) = BKTS$C_OVERHDSZ 
= BKTSC_DATBKTOVA = IRC$C_VAROVHSZ3 
- IRCSCLKEYCMPOVH = IRCSC_DATCMPOVH; 
IF .REC_SIZE GTRU WORDMASK(.BYTES_IN_BKS) 
RETURN RMSERR (MRS); 
ND; ' end of MRS check ‘ 
END; ! end of BUCKET_SIZE definition 
! If the user did not specify a bucket size, find the minimum size, 
based on the record size, which was given. 
IF .I1FAB CIFB$B_BKS) EQL 0 
THEN 
BEGIN 


LOCAL 
BYTES; ! # of bytes to hold one record 


IF .PROLOGUE LSSU PLGS$C_VER_3 
THEN 


BEGIN 
BYTES = .REC_SIZE + BKTSC_OVERHDSZ + IRCS$C_FIXOVHDSZ; 
A a CIFBSB_RFMORG) EQL FABSC_VAR 
BYTES = .BYTES + (IRCS$C_VAROVHDSZ - IRCSC_FIXOVHDSZ); 


END 


< 
Oo 
> 


MonofPononononononron nn 


£91984 94:39:42 oe Bliss-32 V4.0-74 rae, $6 


RM3CREATE 1b-s 
v04- CHECK_MRS 14-5 RMS. SRCIRMSCREATE .B32; 
; 1998 0 ELSE 
; 1999 i 
: 4 26 Assume all kinds of compressions on for prologue 3 files... 
3 Oe bee BYTES = .REC_SIZE + BKTSC_OVERHDSZ + BKT$C_DATBKTOVH 
3 et $22 + IRCSC_VAROVASZ5 + IRCSC_KEYCMPOVH + IRCSC_DATCMPOVH; 
; 2005 037 IFAB CIFBSB_BKS) = ( .BYTES / 512) + 1; 
5 ibd 039 ! If the bucket size we found is only equal to 1, optimize space 
; 2008 60 ' and performance by setting it to 2. 
; 2009 061 \ 
; 2010 06 
; 2011 06 IF .IFAB CIFB$B_BKS) EQL 1 
; og 064 THEN 
; 201 065 IFAB CIFB$B_BKS) = 2; : 
; 2014 bee END; ! end of bucket size defaulting 
$ Sole 06 
3; 2016 068 RETURN RMSSUC(); 
; 2017 069 1 END; 
OC BB 00000 CHECK_MRS: 
PUSHR #*M<R2,R3> 3; 1937 
53 D4 00002 CLAL : 1989 
5E AA 95 00004 TSTB 94(1F AB) 3 
07 12 00007 BNEQ 1$ ; 
53 D6 00009 INCL R3 5 
50 3F DO 00008 MOVL #63, BUCKET_SIZE 3; 1991 
04 11 OR ROE BRB 3 
50 5E AA 9A 00010 1$: MOVZBL 94(IFAB), BUCKET_SIZE 3: 1993 
52 10 AE DO 00014 2$: MOVL REC_SIZE, R2 ; 2000 
2F 13 00018 BEQL 5 $ 
50 50 09 78 OOOIA ASHL #9, RO, RO ; 2011 
51 F2 AO 9E OO01E MOVAB -14(ROS, R1 : 
03 0C AE 01 000 CMPL PROLOGUE, #3 > 2007 
OF 1€ 00026 BGEQU 3 
50 £8 Al 9E 00028 MOVAB <-8(R1), BYTES_IN_BKS : 2011 
02 50 AA 91 0002C CMPB  =s- BOC IFAB), #2 > 2014 
09 1 0030 BNEQ 4$ ; 
50 2c 4 SUBL2 #2, BYTES_IN_BKS ; $016 
4 1 BRB : 2007 
50 EE Al 9E 00037 3$: MOVAB <-18(R1), BYTES_IN_BKS ; 2021 
52 50 10 00 ED 000 3 4$: CMPZV «#0, #16, BYTES_IN_BKS, R2 : 2023 
07 1E€ 0004 BGEQU $ ; 
50 85D4 F 3C O06s MOVZWL #34260, RO : 2025 
; 11 0004 BRB 9 : 
3 E9 00049 5$ BLBC R3, 8$ 3 3033 
3 0c AE D1 0004C CMPL PROLOGUE, #3 : 204 
5 1s fb Of 0082 BOVAR ST(R2), BYTES : 204 
33 50 AA 3 05 CMPB OCIFAB), eb : 2005 
9 ie Th BNEQ ; 
50 2 ¢0 0005C ADDL2 #2, BYTES 3 2047. 
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RM3CREATE 1b-se -1984 01:39:47 AX-11 Bliss-32 V4.0-74 Page 58 
yos080 CHECK_OVERLAP 12-88-13 03:33 i43 LRMS. SRC RM CREAYE b3004 ° (14) | 
; 2020 71 1 SSBTTL. ‘CHECK_OVERLAP' : 
; 202) f } ROUTINE CHECK_OVERLAP ( NO_SEGS ) : RLSCHECK_OVERLAP = | : 
: 5058 074 1 44 | ; 
3 2024 75 13 | ; 
i 3085 ie 1 | CHECK OVERLAP | 3 
: 20 : 8 1 This routine checks if the segments of the primary key for | ; 
; 8 : 144 : prologue 3 files overlap, or not. : 
; 20 1 1 1 CALLING SEQUENCE: ; 
i 3031 ¢ ii CHE CK_OVERLAP(NO_SEGS) ; 
: 20 : 084 1 | INPUT PARAMETERS: ; 
3 , : Ba? } NO_SEGS : number of segments in primary key : 
: 20 O8? | i IMPLICIT INPUTS: F 
3 ; 5 +4 : XAB - address of XAB to process : 
> 2039 090 1 | OUTPUT PARAMETERS: ; 
3 8 04 : None : 
: O4¢ 093 1! IMPLICIT OUTPUTS: : 
ites Bp tie 
; 2045 096 1 | ROUTINE VALUE: 
; of | 097 1! RO : SUC = segments do not overlap (success) 
; oh 84 : SEG error code - segments overlap 
> 2049 100 1! SIDE EFFECTS: 
; 2050 101 1! none 
3; 2051 196 1! 
3 O36 103 1 !-=- 
; 205 106 1 
3 bee 193 BEGIN 
: 096 199 EXTERNAL REGISTER 
3; 205 108 MAB = 6 : REF BBLOCK; 
Be OS acu 
: 2060 111 START1, 
: 5061 112 END1 | 
: 2068 11 START2, 
3 Bo7 114 END2, 
; 115 LEN : REF VECTOR C, BYTE), 
3; 2065 116 POS : REF VECTOR C, WORD); 
$069 118 POS = KAB XABSW_POS): | 
3 pee BN LEN = XAB ([XAB$B"-S1Z); 
: $90 121 ! To find out if any segments in the primary key overlap, we must 
; 2071 1 § ! find the starting and qneing position of a given segment, and 
3 B78 1 ' compare these values with the starting and ending position of all | 
: 207 124 ! other segments in the key. 
ge fee! 
: 2076 1 $ INCR I FROM 0 TO (.NO_SEGS - 2) 


SSS 7 _—_— 


vous080 CHECK_OVERLAP 
: 2077 1 DO 
i $03 183 

; 20 131 

Be Be GY 

; ts 134 3 

3; 20 135 4 

SOR 139 ¢ 

; 889 8 4 

; st) 140 

; 2090 141 

> 2091 148 4 

; 09¢ 143 4 

; 209 144 

+ 2094 145 

i A 

: 838 148 

; 2098 149 


F 8 
aes rae eT 


1 = _.P 
= 


pst 1]; 
-POSE.13 +°.LENC.1] - 1; 


BEGIN 
START2 = 


J FROM .1+#1 TO (.NO_SEGS = 1) 


AX-11 Bliss-32 PE et od 
RMS .SRCIRMSCREATE .B32; 


-POSC.JJ; 
END2 = post di +’ .LENC.J] = 1; 


IF ((.START1 GEQ .START2) AND 
OR ((.END1 GEQ .START2) AND 
OR ((.START1 LEQ .START2) 


T 
RETURN RMSERR (SEG); 
END; 


END; : 
RETURN RMSSUC(); ! 
END; 


OFBC 8F 8B 00000 
3 1E A6 YE 00004 
5 2E AG YE 00008 
ale BO: 
51 9 C 31 

4 10 0001 

5A reat i 001 
58 6241 3C 00018 
50 6147 9A OOO1F 
58 50 6¢cO 4 3 
Bo He ie 
33 11 38 ) 
59 6240 3C 0002F 
58 634 3 8 3 

fe 

3 FF OA . 00 
. aH 3s 
sR ee 
eee ay 
sg Ha 
BBS 


(.START1 LEQ .END2)) 
~-END1 LEQ .END2)) 
AND (.END1 GEQ .END2)) 


~~ 


end of INCR J loop 
end of INCR I loop 


return success 


CHECK_OVERLAP: 
PUSHR 


$ #°M<R2,R3,R4,R5,R7,RB,R9,R10,R11> 

MOVAB 30(R6), POS 
MOVAB 4 (RG) LEN 
MOVAB -2(R3). R11 
DECL R 
MNEGL #1, 1 
BSBB.Otsé7’S$ 

1$: MOVZWL (Pos) 1 , START 
MOV2WL (POS)CIJ. RB 
MOVZBL (1) LEN * RO 
ADDL2 RO, R 
MOV -1(R8), END1 
MOVL I, J 
BRB 6$ 

2$: MOVZWL (Pos) CJ , START2 
MOVZWL (Pos) JJ, R8 
MOVZBL (J)CLEN]. (SP) 
ADDL2 (SP), R 
MOV -1(R8), END2 
CMPL STARTI, START2 
BLSS 5 
CMPL START! END2 
BLEG 

3$: CMPL = END1, START2 
BLSS 
CMPL ND1, END2 
BLEQ 

4$: CMPL § START1, START2 
BGTR 6$ 


Be Se Oe Oe Oe Oe BH Se Se Se Se Se Se Se Ge Ge Se Se Ge Ge Se Se Se Se Se Se Ge Se Se Ge Ge Se Se Ge Se Se Se Se Se Se Ge Se Se Se Se se Se Seas ae Se Se Se Seas teas 


west 


; Routine Size: 


CHECK_OVERLAP 


122 bytes, 


Routine Base: 


8 
18- Sep-19 


-Sep-19 
iY 3 
8794 F 5$ 
gs: 
B F B 7$: 
1 OD of 
4 ¢ é 8$: 
OF BC F Be 7 
5 00079 


RMSRMSMISC + OADS 


“3: 


cnet 
MOVZWL 


9:47 AX=11 Bliss-32 V4.0-74 
1:18 RMS.SRCIRMSCREATE .B32; 


ENDT. END2 
#34708, RO 
R $. 
Rif, feis ‘ 
#1, 'R 


#4, SP 
#°M<R2,R3,R4,R5,R7,RB,RI,RIO,R11> 


Be Se Se Be Se Se Se Ge Be Se 


$3 


=z 
al 


eS SS 
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RASCREATE 16-Sep-1984 01:39:47 AX=11 Bliss-32 V4.0-74 Pa 
voe-000 CHECK PROLOG 1073871 38e 93: 1:18 URms /SRC RMSCREATE .832; 948 
ZSBTTL. ‘CHECK PROLOG’ 
ROUTINE CHECK PROLOG (PROLOG, NO_SEGS; PROLOGUE) : RLSCHECK_PROLOG = 


lee 


CHECK _PROLOG 


ae 


aS 


WO 


wr 


uw 


This routine finds the abe 5 nay prologue that can 
handle this key XAB, starting with the value in PROLOG. 


CALLING SEQUENCE: 
CHECK_PROLOG (PROLOG, NO_SEGS; PROLOGUE) 


INPUT PARAMETERS: 


POEOOWIMANNTNIUNTUTUTU 
iw F 


WO 0OOno 


' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
64 ; PROLOG = prologue number to start with 
65 } NO_SEGS = number of segments in key 
89 i IMPLICIT INPUTS: 
o8 XAB - address of XAB to process 
% i QUTPUT PARAMETERS: 
4! PROLOGUE 
ig i IMPLICIT OUTPUTS: 
a None 
16 i ROUTINE VALUE: 
A : Error status or success 
79 1°! SIDE EFFECTS: 
80 ! None 
1 ! oe oe 
Be BEGIN 
Bg EXTERNAL REGISTER 
R_IFAB TR, 
XAB ='6; 
LOCAL 
STATUS; 


STATUS = RMSERR (PLV); 
DECR I FROM .PROLOG TO 1 DO 


mai aaa ai a a a a a et ss a tn os a as a o's = — 2 a a a 


SOHO HCCC LSSSS 


Oooo 


BEGIN 
CASE .1 FROM 1 TO 3 OF 
SET 
(1,2) : : Set to prologue 1 and return success 


ee en ne ree ee ee ee eee 


AUMAAMAU ER RRR RRR RRS WPWAWARUNITINNNIIY 3 
SON SS SNS SEG LHS SONS ME UNSC NOP UM OOMNO MEUM Obe 


BHP MININININIURPPODIPONIPONIPONINININDD 4 9 2 2 


Morofnorofronn— 


BEGIN 
PROLOGUE = PLG$C_VER_NO; 
RETURN RMSSUC(); 


ee a a a a oo or Oo OM OM OM OM OM OM. OA OP. OM. OP. OP. OM OM OM. Om OM OM EM OM IM OM OM EM OM EM EM EM IA OM EM OM BM EP OM OF. DP. OP, OF. OM. OM OM Be 


_. - -~ 2. 


& } 

RMSCREATE 1b-se 1984 01:39:47 AX-11 Bliss-32 V4.0-74 - 
vous000 CHECK PROLOG 1o788b7198e P3idr:ta YAMS seedanecreaveo3o- age 485 
7 END; 
(3] : ! Prologue_3: if all checks succeed, the prologue version 

! becomes 3, otherwise, we try a lower version. 
GIN 
OLOGUE = PLGSC_VER_3; 
ATUS = CHECK_OVERLAP (.NO_SEGS); 
If 
si 
th 


BE 
R 
T 


the keys do not overlap, we must check for maximum record 


Od ad od td dd td I OOO 


COO NAUE WI OOO 


ze here too, since we do not want to break =e rege eee 
3 


at do not specify a prologue number, but have RS set. 


cocececes NVUG-= 


IF _ .STATUS 
THEN 


4 aia 
RETURN .STATUS; 
ND; 


COUTRANGE] : ! Invalid prologue number 
RETURN RMSERR (PLV); 


TES; 
END; 


If we got here, no prologue worked 
RETURN .STATUS; 
END; 


Se Se Ge Se Se Se Se Ge Se Se Se Be Se Se Se Se Se Ge Ss Se Se Se Se Se Se Se SH Se Se SHS Se Ge SH Gee 
DB kk kd a ah od od 
GEREUNSASSSVSORAVLS 


RISSSLEARLAV ES SSNS AFA“ SSSLSAFERIS SES 


4 

4 

4 

4 

& 

& 

4 

4 

& 

& 

3 GIN 
| STATUS = CHECK_MRS (PLGSC_VER_3, .IFAB CIFBSW_MRSJ); 
4 


POW 
m—OO0e@ 


52 DD 00000 CHECK_PROLOG: 
USHL 


1 72¢ . = MOVZWL #8, 
ns) Poe 


Mo, STATUS 


- of 2 Om OP OR Ome OA Om Oe OF. OP OA OP. EP, Oe OP OR OM OM Om OR OM OF. OP. EA. OP. BPR BF. OP. OP. EPR BO OFA EP. EPR OP. Be OR OL OL OP. OP Oe 


08 2 1$: 
001 0000 0000 00011 2$: 


MOVL mn. RO 


4$: MOVL #3, PROLOGUE 
BSBW  CHECK_OVERLAP 


17 
1¢ 

00 6 if 3$: MOVL #1, PROLOGUE 
: 


Woe obe CHECK _PROLOG 1b-se eree=} 3 Re Oba tg | HAMS LABS isscae Ve Ose Page 85 
3} BF Oe bogSF ea T te £9994 
7E 60 AA 3¢ MOVZWL 96(IFAB), -(SP) + 2226 
03 PUSHL @# 3 
FECA BSB CHECK_MRS : 
4 f BLB STATS, 68 ; 226 
£8 f 4 t} 3$ av Leatus, RO : 443 
4 BA 4A 7$ POPR  #*M<R2> t 2242 
5 C R58 3 


; Routine Size: 77 bytes, Routine Base: RMSRMSMISC + OB4F 


; 2193 2243 1 


<2 
. 


K 8 
RMSCREATE 16-Sep-1984 01:39:47 VAX=11 BLiss-32 v4.07 p 
VOesOD0 CLEAR ereen he Oba th | HAMS UaPhisscae ¥e-B35¢ age 48} 


a RSBTTL ‘CLEAR’ 
; og ROUTINE CLEAR ( BUFFER, SIZE ) : RLSCLEAR NOVALUE = 
“ 


CLEAR 
This routine fills the buffer with zeros. It is a separate routine 
sO as not to clobber R4 and R5. 


CALLING SEQUENCE: 
CLEAR (BUFFER, SIZE) 


INPUT PARAMETERS: 
buffer to clear 
number of bytes to clear 


IMPLICIT INPUTS: 
BKT_ADDR = address of buffer to initialize 


OUTPUT PARAMETERS: 
none 

IMPLICIT OUTPUTS: 
none 

ROUTINE VALUE: 


none 
SIDE EFFECTS: 
none 


Se Se Se Oe Se Oe Se Se Se Ge Se Se Se Se Se Ge Se Se Ge Se Se Se Se Ge Se Se Ge Ge Se HSH Se Se Ge See 
POPRPPPIPOPONO PIPPI PONIPUPOPOPIPUPIPUNIPOPUNUIPUNNINUN 
— —) st se ss a ss I 
OCONO VE WN —O OONOUSWN—O MEwrn 
PAAACOAAO a 
Doo Wr PMO Ooo OA Pun OOD 


BEGIN 
CHSFILL ( 0, .SIZE, .BUFFER ); 
END; 


3¢ 88 9009 CLEAR: PUSHR #*M<R2,R3,R4,R5> : 2245 
18 AE 00 6E aa 00 908 MOVCS #0, (SP), #0. SIZE, @BUFFER ; 2278 
; BA 0008 POPR #*M<R2,R3.R4.R5> : 2279 

000C RSB 3 


3; Routine Size: 13 bytes, Routine Base: RMSRMSMISC + OB9C 


; 2231 2280 1 


8 
RMSCREATE 18-5 “1984 01:39:47  YAX=11_BLiss-32_v4.0-74 Page 65 
vO4=000 EXTEND Ve-$ep-1986 43:01:18 RMS SRCIRMECREATE 032; 29° 49} 
XSBITL ‘EXTEND 
ROUTINE EXTEND (BUF ,XAB) : RLSEXTEND = 


RM: 
Vv0é 


++ 


EXTEND 


UPwrn— 


This routine is an interface to RMSEXTENDO. It is called to 
extend a file area based on the allocation specified in the 
allocation XAB. 


CALLING SEQUENCE: 
EXTEND (BUF ,XAB) 


INPUT PARAMETERS: 
BUF 


Fase 
Fw O00@ 
INIA POPOPPONOPONINOPONONNDY 4 8 9 


DDE EEE EE EE 


MAP 


' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
95 i - address of area buffer 
9 XAB address 
i IMPLICIT INPUTS: : 
i FAB address 
IFAB address 
i OUTPUT te eo 
i BUF CAREASL_CVNB) - start VBN 
3 i BUF CLAREASL_NXTVBNJ - stort VBN 
3 i BUF CAREASL_CNBLK) umber of VBNs in extent 
3 BUF CAREASL_TOTAL “ALLOCJ- total number of VBNs in area 
3 IMPLICIT OUTPUTS: 
one 
1 i 
3 i ROUTINE VALUE: 
RS 1 Success or error code (ALN or AOP) 
66 3 i SIDE EFFECTS: 
6 1 i none 
68 31 i 
$1 ie 
31 BEGIN 
32 
8 
3 


MOMIPOTONIPUND 
SSNNNNO 
MEWN—O”O 


BUF : REF BBLO LOCK, 

XAB : REF BBLOCK; 
EXTERNAL mesistes 
COMMON_F AB_STR; 


LOCAL 
EXTEND_OT; 


EXTEND_QT = .XAB CXABSL_ALQ); 
BEGIN 


CAL 
STARTVBN, 
ENDVBNP1; 


Oo We Be Oe Oe Oe Oe Oe Oe Se Ge Se Se Ve Oe Ge Ss Oe Oe Oe Se Oe Os Oe Oe Oe Oe Oe Ge Oe Oe Se Oe Os Se Oe Go Se Oe Oe Ge Os Oe Se Ge Se Se Se Os Oe Oe Oe Se Se Se bes 
mMrr 
WN O DONO UES WN “OO OONOUS WN —O0O@ uw 
PIPIPIPIPIPIPOPOPINININONIMNINIPOPIPININYPS PI POPIPONINIPIPINPONINPIPIPIPIPIPIPPUPIPUPIPUPIPYAIPPURMUPINIPOPINND 
ooooooooo ono 
RANVLSSS 


+4 COCOCe ON 
oO 
NOUS AN 9 OONOUE WR" OOONAULSWN—“OOOnNOu 


——______, 
M 


,¢ 
VOr“000 = EXTEND 1er$ep-1986 13:01:18 ERMs.SRCURASCREATE= 03071 Page 495 


<2 
. 2s 


RETURN_ON_ERROR ( RMSEXTENDO ( .EXTEND_QT, .ENDVBNP1; STARTVBN, ENDVBNP1 )); 
Set up IFAB EBK and HBK data 


iFAB CIFBS$L_EBK] = .ENDVBNP1; 
IFAB CIFBSL-HBK = [ENDVBNP1 = 1; 


ae! AREASL_CVBNJ e oetant wens 
BUF LAREASL-NXTVBN] = .STARTVBN; 
BUF CAREASL-CNBLK] = -ENDVBNP1 = .STARTVBN 


PRU 


ONAVUESWN —COONOULS UT O0@ 


Qj) = BUF CNBLK 
FAB CFABSL “ALQ) = FAB Phese sit) ‘XAB CXABSL_ALQ]; 


RETURN RMSSUC (); 


SSRISARANLSSSLERRANLS 
PUPS II B= BS 


WANNA 


; END 
; INFO#250 L1:2339 
; Referenced LOCAL symbol ENDVBNP1 is probably not initialized 


0078 8F BB 99000 EXTEND: PUSHR #*M<R3,R4,R5,R6> : 2282 
56 DD 00004 PUSH R¢ ; 
50 6E 10 ¢€1 00006 ADDL > 2331 
55 60 DO OO00A MOVL (R05 "EXTEND. QT : 
000000006 00 16 0000D JSB RMSE : 2339 
2E 50 €9 00013 BLBC OrArUsee S : 
74 AA 56 DO 00016 MOVL ENDVBNP1, 116(1FAB) + 2343 
70 AA FF Ab 4 QOO1A MOVAB <-1(R6), 112(IFAB) > 2344 
OC A? 51 00 O001F MOVL § STARTVBN, 12(BUF) + 2346 
18 «A? 51 09 0023 MOVL. STARTVBN. 24(BUF) + 2347 
10 A? 56 51 ¢3 00027 SUBL3. STARTVBN, ENDVBNP1, 16(BUF) : 2348 
32. OA? 10 A? DO 0002 MOVL. 16(BUF), SO(BUF) : 335¢ 
50 6E 10 C1 00031 ADDL3 #16, XAB, RO > 235 
60 10 A? D0 90 5 MOVL.  16(BUF), (RO) ; 
50 6E 10 ¢€1 00039 AD?’ % #16, XAB, RO + 2354 
10 A 60 CO 999 D ADDL2 (ROS, 16(FAB) F 
5 1 DO 00041 MOVL #1, RO : 2356 
5E 04 CO 90044 1$: ADDL2 #4. SP : 2358 
0078 8F BA 0047 POPR #°M<R3,R4,R5,R6> 3 
5 00048 RSB : 
; Routine Size: 76 bytes, Routine Base: RMSRMSMISC + OBA9 
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END; 
BUF CAREASL_TOTAL oALLOCT = chy cuanedst. CNBLKI; 
XAB CXAB$L_ALQ 
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ZSBITL ‘FIND PROLOGUE' 
ROUTINE FIND PROLOGUE ( NO_SEGS; PROLOGUE ) : RLSFIND_PROLOGUE = 


le4 
] 
F IND_PROLOGUE 
This routine examines the key XAB and determines ‘he prologue 
version depending on a series of parameters. 


CALLING SEQUENCE: 
FIND PROLOGUE ( NO_SEGS; PROLOGUE ) 


INPUT PARAMETERS: 
NO_SEGS = number of segments in key 


IMPLICIT INPUTS: 
XAB - address of XAB to process 


i 

i 

i 

i 

i 

i 

i 

i 

i 

i 
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i 

! OUTPUT PARAMETERS: 
PROLOGUE version number 
! IMPLICIT OUTPUTS: 

None 

' ROUTINE VALUE: 
} RO : Success or PLV error code 
i 

! 

i 
i 


SIDE EFFECTS: 
none 


BEGIN 
shew, REGISTER 


R-FAB, 
XAB = 6 : REF BBLOCK; 


LOCAL 
PROLOG; 


First check if the user actually specified a prologue number 
hen” CXAB$B_BLN] GEQU XABSC_KEYLEN 


The user has a long key XAB 
BEGIN 
IF .XAB CXAB$B_PROLOG] GTRU 0 
THEN 


! We have an explicit prologue number, 
! Check that there is a valid key XAB for that 
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7 iss- 
F IND_PROLOGUE :18 RMS. SRCIRM3C | 

: 9 41 ! prologue. 

3 0 419 : ' ° ; 
: 937i 18 BEGIN  § 
3 237 420 4 CASE .XAB CXABSB_PROLOG] FROM 1 TO 3 OF : § 

3 2374 4o1 4 SET ; 
3 2375 4 : 4 i ¢ 
; 23? 4 (1,2) : BEGIN :¢ 
: 237 4o4 PROLOGUE = PLGSC_VER_NO; 2g 
; 2378 405 RETURN RMSSUC ()3 ig 
3 2379 426 4 END; : ¢ 
2 30 427 & : ¢ 
; 1 406 3 [3] : BEGIN 3 ¢ 
> 238 409 PROLOGUE = PLGSC_VER_3; 2g 
: 238 430 5 RETURN CHECK_OVERLAP~(.NO_SEGS); 2 ¢ 
; 2384 431 4 END; 2g 
; 2385 432 4 3 
3 2386 2433 4 COUTRANGE) : RETURN RMSERR (PLV); 2 2 
3 tet 2434 & 3 4 
; 2388 2435 4 TES; $¢ 
; 2389 2436 3 END; 2 ¢ 
; 330 g437 3 $2 
> 2391 438 2 END; : ¢ 
; 338 2439 § a < 
; 239 2440 ' Either the user has a short XAB or he didn't snog tty 3 ¢ 
3: 2394 2441 ! prologue number. Look for process and system defaults. a¢ 
; 3395 gue i : 2 
3; 2396 44 $< 
3 2397 2444 2 IF .PIO$SGB_RMSPROLOG<0,8> NEQU 0 2 
; 398 2445 2 THEN 32 
: 2399 2446 § ' There is a default process prologue level $< 
; 2400 2467 ' 3¢ 
3 2401 gag 2 PROLOG = .PIO$GB_RMSPROLOG<0,8> 3 
: 340 449 2 ELSE 22 
3; 240 2450 § 3 ¢ 
3 2404 2451 IF .SYS$GB_RMSPROLOG<0,8> NEQU 0 3 ¢ 
; 3405 g45e 2 THEN 3 
; oe $622 : There is a default system prologue level : § 
3 2408 Stee PROLOG = .SYS$GB_RMSPROLOG<0,8> 32 
; 2409 456 ELS é 3 ¢ 
; 2410 457 ! Try for the best there is 3 ¢ 
+ 2611 458 i 3 
: gale 459 PROLOG = PLGSC_VER_3; 2 § 
: 2614 461 RETURN CHECK_PROLOG (.PROLOG, .NO_SEGS; PROLOGUE); | 2 
: 2415 $085 a 
; 2416 2463 1 END; : 
eeait 
24 

4C OF 01 A6 91 00000 FIND_PROLOGUE: | 3 
“ — CMPB 1(XAB), #76 7 2404 3 ‘ 
23. 1F 00005 BLSSU 4 : 3 ¢ 
48 Abd 95 00007 TSTB = 72. (XAB) > 2411 3 
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RMSCREATE 16-Sep-1984 01:39:47 AX-11 Bliss-32 V4.0-742 Page vo 
YOes080 GET_BKS 12-80 8=138e eee RMS. SRCIRMSCREATE.B32;1 , (19) | 
; 464 1 2SBTTL ‘GET_BKS' : 
: $92 ! ROUTINE GET_BKS ( AREA_NO ; BKT_SIZE) : RLSGET_BKS = ; 
: rhe 1 !¢4 : 
; 468 1! : 
; & 1 ! GET_BKS PH 
$ 470 1! This routine returns the bucket size corresponding to the index : 
; of] : or data level area number of the given key of reference. : é 
; 473 1 | CALLING SEQUENCE: : 
: rth : GET_BKS ( AREA_NO ; BKT_SIZE ) : 
; 476 1 | INPUT PARAMETERS: ; 
; rt 4 : AREA_NO = Area number we are looking for ; ‘ 
; 479 1) IMPLICIT INPUTS: 32 
: 480 1! IFAB address 34 
3 481 1! FAB address $4 
; 4 ¢ 1} XAB address : 
3 4835 1! 3 ¢ 
; tee 1 ! OUTPUT PARAMETERS: 3 ¢ 
3 nt 5 : BKT_SIZE = bucket size value for the given area : ¢ 
: 487 1 | IMPLICIT OUTPUTS: i 
3 488 1! none | 
5 489 1! :é 
3 490 1 ! ROUTINE VALUE: $4 
3 491 1! 1 = success a 
3 re : } XAB error on REPROBE : ‘ 
; 494 1 ! SIDE EFFECTS: : 2 
3 recy : none : § 
: 199 1 i-- : 2 
5 498 1 3 ¢ 
$ 499 BEGIN 34 
; 500 3 
; 501 EXTERNAL REGISTER 3 
3 206 R_IFAB_STR, $< 
; 50 R-FAB_STR, 24 
3 504 XAB ="6 REF BBLOCK; 3 ‘ 
3 505 34 
r 206 LOCAL 34 
3 ry 44 SAVE _XAB; ' stores address of current XAB 3 4 
3 | 34 
; 509 SAVE_XAB = ,XAB; 2 ¢ 
; 310 XAB = .FAB CFABSL_XAB); 7 
; 218 ' Loop thru the XAB chain ; : 
; 314 WHILE .XAB NEQ 0 :§ 
Py 515 dO 4 
; 316 BEGIN 3 4 
: 21 RETURN_ON_ERROR ( REPROBE () ); | i 4 
; 215 ! If it is an area allocation XAB, and the area id is the one we ; 
: 520 ' area looking for, get the bucket size and return. a 
| 
| 
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vo4=000 GET_BKS 1e=88p-1986 13:01:18 ERMS-SRCIRASCREATE 832; 29° (19) 


a 
| 
: 2475 1 ! 
3s 247 ¢ 
: 247 IF .XAB CXABSB_COD) EQL KABSC_ALL 
: 267 4 AND .XAB CXAB$B_AID] EQL .AREA_NO <0,8> | 
3; 247 5 THEN 
3 26 § EXITLOOP; | 
3 2481 XAB = .XAB CXABSL_NXT]; 
3 : ¢ 8 END; | 
+ 2684 0 ' If no area was found, return IFAB bucket size value, else 
3 re Fi ; 1 } use value from XAB. 
: 26 g : 
; 2488 534 IF .XAB EQL 0 
3; 2489 535 THEN 
4 24 : : BKT_SIZE = .1FAB CIFBS$B_BKS) 
: 249 538 BKT_SIZE = .XAB CXABSB_BKZ); 
: 249 539 XAB = .SAVE_XAB; ' restore XAB addresss 
> 2694 540 RETURN RMSSOC (5; 
3; 24695 541 
3: 2496 542 1 END; 


52 DD 00000 GET_BKS:PUSHL R2 > 2465 
52 56 D0 90002 MOVL XAB, SAVE_XAB + 2509 
56 24 «AB 00 0000 MOVL 36(FAB) , RAB : 2510 
18 1 90009 1$: BEQL $ + 2514 
0000v 30 00008 BSBW - REPROBE : 2517 
26 50 £9 0000E BLBC STATUS, 6$ ; 
14 66 91 00011 CMPB = (XAB), #20 + 2523 
07 12 00014 BNEQ 2$ : 
08 AE 17 Ab 91 00016 CMPB 3 (XAB) , AREA_NO > 25246 
06 13 0001B BEQL 3 : 
56 04 A6 DO 0001D 2s MOVL 4(XAB), XAB : 2527 
6 11 00021 BRB 1$ : 2514 
& D3 0023 3$ TSTL  XAB : 2534 
06 12 000 BNEQ 4$ : 
51 SE AA 9A 000 MOVZBL 94(IFAB), BKT_SIZE > 2536 
04 11 00028 BRB 5$ : 
51 16 Ab 9A 00 D 4$: MOVZBL 22(XAB), BKT_SIZE : 2538 
5 52 D0 00031 S$: MOVL  SAVE_XAB, XAB > 2539 
50 01 Dd 000 MOVL #1, RO : 2540 
04 BA 00037 68: PO #°M<R2> > 2542 
05 00039 RSB : 


; Routine Size: 58 bytes, Routine Base: RMSRMSMISC + OC3C 
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RMSCREATE 16-Sep-1984 01:39:47 AX-11 Bliss-32 V4.0-74 Page 7 
yoz-000 GET_KEY_PARMS 1 ~3007 1382 9}: 1:18 LRMS.SRE RM CREAYE B3oe4 s (205 
: 138 $3 1 ZSBTTL BE nf 
3; 24 té i ROUTINE GET_KEY_PARMS ( ;KEYSIZE, MINREC, SEGS ) : RLSGET_KEY_PARMS NOVALUE = 
3 1 ‘3 1 lee 
3 ¢ 47 1! 
; ‘3 1 ! GET_KEY_PARMS 
: 49 1! This routine determines the number of segments in a key. 
3 5 3} ! the size of the key, and the minimum record size containing key. 
3 $$ § 1 ! CALLING SEQUENCE: 
3 2508 7 } GET_KEY_PARMS ( ;KEYSIZE, MINREC, SEGS ) 
; 310 5 1 | INPUT PARAMETERS: 
3; 2511 § 1! NONE 
3 21g 557 1! 
: 251 228 1 ! IMPLICIT INPUTS: 
3 233 222 : } XAB - address of XAB to process 
Hy $1 561 1 ! OUTPUT PARAMETERS: 
3; 251 206 & KEYSIZE = total number of characters in key 
; 2518 565 1! MINREC = minimum size of record necessary to contain key 
; 233 re : } SEGS = number of segments in key 
; 2521 566 1 ! IMPLICIT OUTPUTS: 
3 @ ¢ 567 1! None 
3 @ 568 1! 
; 2524 569 1 ! ROUTINE VALUE: 
: 2525 570 1! none 
3; 25 $ $71 1! 
; 25 376 1 ! SIDE EFFECTS: 
; 2528 573 1! none 
; $2 9 2574 1! 
3 20 $202 1 !-- 
; 2531 576 1 
; $256 2577 BEGIN 
3 2 2578 
H hy 579 EXTERNAL REGISTER 
3 3 5 209 MAB = 6 : REF BBLOCK; 
; 238 286 LOCAL 
H 235 58 LEN REF VECTOR C, BYTE], 
3; 2539 584 POS : REF VECTOR C, tae fF 
5 re 28? TYP : REF VECTOR C, BYTE); 
; 34¢ 359 POS = XAB [XAB$W_POS); 
3: 254 288 LEN = XAB CXAB$B_SIZ); 
> 2544 589 SEGS = 0; 
3 2545 590 MINREC = 0; 
: $946 331 KEYSIZE = 0; 
3: 2548 298 ' Loop thru all key segments adding values to find nope tee, number of 
3 2549 594 ! segments, and minimum record size to include key. top the loop when 
3 320 232 ; @ Segment of zero length is found. 
3 338 299 
: 255 598 INCR | FROM 0 TO 7 DO 
3; 2554 599 BEGIN 


9 
1 


3 5 6 
; $ 6 IF .LENC.1] NEQ 0 
; 6 § THEN 
5 3 6 BEGIN 
; 6 4 SEGS = .SEGS + 1; 
; 60 6 5 4 KEYSIZE = .KEYSIZE + .LENC.1); 
; 256 607 4 IF .POSC.1] + .LENC.I1] GTRU .MINREC 
3; 256 one 4 THEN 
H 64 609 4 MINREC = .POSC.1] + .LENC.1); 
; 2565 610 4 EN 
3 $8 611 ELSE 
3; 256 olg EXITLOOP; 
: $9 $1 ‘ips 
; 0 615 ! If the first segment had zero Length, assume there is at least one 
3 a) 218 segment, until we can verify if the key definition is correct. 
3 ig 618 
3: 2574 619 IF .SEGS EQL 0 
; 2575 620 THEN 
: 278 621 SEGS = 1; 
; 257 6 ¢ 
; 2578 6 END; 
0180 8F 6B 00000 GET_KEY_PARMS: 
PUSHR #*M<R4,R5,R7,R8> 
50 1E A6 YE 00004 MOVAB 30(R6), POS 
57 2E ag 9E 00008 MOVAB 46(R6), LEN 
52 7C 0000C CLRQ MINREC 
51 D4 0000 CLRL KEYSIZE 
54 D4 0001 CLAL I 
55 6447 9A 00012 1$ MOVZBL (I)CLEN], R5 
18 13 Ba0t8 BEQL 3$ 
5 08 ot INCL gpes 
51 55 § OIA ADDL2 R5, KEYSIZE 
38 6044 ¢ 9010 MOV2WL (POS)EIJ, RB 
5 28 C 021 ADDL2 R8, R 
52 55 Di 00024 CMPL RS, MINREC 
H 1 7 BLEQU 
52 i) 9 VL Ree ag 
E2 54 7 F $ AOBLEQ #7, I, 1 
; D $ TSTL SEGS 
1 BNEQ 
53 1 OD MOVL #1, SEGS 
01B0 F BS 3 7 4$: POPR #*M<R4,R5,R7,RB> 
5 00 RSB 
; Routine Size: 60 bytes, Routine Base: RMSRMSMISC + 0C76 
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nene 


e so as not 


rh 


: RLSWRITE_KEY_DESC = 
sc 
tn 


de 
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If also moves the ke 
yname reprobe fails 
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: REF BBLOCK, 
REF BBLOCK: 
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- address of nex descriptor buffer 


- address of XA 


OUTPUT PARAMETERS: 


data moved to BUF, an image of the disk key descriptor 


SEGMENTS = number of segments in the key 
ROUTINE VALUE: 


IMPLICIT INPUTS: 
BUF 
XAB 


This routine moves ke 


from XAB‘s to ke 
It is done as a rout 


CALLING SEQUENCE: 
MOVE ( SEGMENTS ) 


INPUT PARAMETERS: 
KNM error if ke 


SUC = success 
G 
T 
Ss 


*MOVE' 
SIDE EFFECTS: 

none 

0 


none 
IMPLICIT OUTPUTS: 
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OUTINE MOVE ( SEGMENTS ) 
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XSBITL 
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yoes000 MOVE 1 ~3007 1382 OF arith RMS.SRCIRMSCREATE .B32; . (21) | 
; 26 6 § UME( ZQUOTE K vse. SIZES, youcts KEYSB -3| E5); | 
; 26 6 ASSUME ( ROUOTE x EYSe~ SIZES, rouoTE KEYS$B_S Eg}: 
3; 2640 6 ASSUME( ZQUOTE KEY$8_SI rEg. ZQUOTE KEY$B_SIZE7); 
; $61 6 5 ASSUME ( ZQUOTE KEYSB" SIZE7, ZQUOTE KEYST-KEYNAM) ; 
3 ecg ‘ att SBYTEOFFSET(KEYST_KEYNAM) + KEYSS_KEYNAM NEQ SBYTEOFFSET(KEYSL_LDVBN) 
3; 2645 U 26 5 ZWARN('WARNING CONSTANT HAS CHANGES') 
3 0% | 6 FI; 
: 264 691 
: 2648 O36 ' Pick up the keyname buffer address into a local. Reprobe for read, 
; 2669 69 i and if valid, move to key descriptor buf ter. 
3 220 694 i 
; 2651 695 
3 626 698 If .XAB CXABSL_KNM) NEQ 0 
3 $2 69 E 
; 2654 $38 BEGIN 
: 2655 8 
3 O28 00 LOCAL 
3; 265 701 KEYNAM; 
3; 2658 70 
3 323 1? KEYNAM = .XAB CXABSL_KNM]; 
; 2661 P 2705 IFNORD ( ZREF (KEYSS_KEYNAM), .KEYNAM, IFAB CIFBSB_MODEJ, 
3 O66 pe 708 pcsly 
; 266 P 270 FAB CFABSL_STV] = .XAB CXABSB_REF); 
3; 2664 P 2708 RETURN RMSERR (KNM); 
3; 2665 709 END ); 
3 208 710 CHSMOVE (KEYSS_ _KEYNAM, .KEYNAM, BUFCKEYST_KEYNAM]); 
: $0e8 ae sate 
3; 2669 ng ! Move the segments position and size. Use the number of 
3 on ne segments to do the move as a unit. 
3 ors at) CHSMOVE ( .SEGMENTS * XAB CXABSW_POS], BUF CKEYS$W poget sons ); 
; 673 4 CHSMOVE ( . SEGMENTS, x8 CxABSB_SIZJ, BUF CKEY$B_SIZE) ) 
3; 2675 9 ! Set data _ types values. Propagate XABSB_DTP to TYPO, and 
3 rth f ? ; TYP1-TYP7 to null (S Té). 
3; 2678 7 § BUF CKEY$B TvpEe3 = ,XAB CXABSB itt 
> 2679 7 CHSFILL( 0, 7, BUFCKEYSB_TYPET 
; 2680 724 
3 1 725 RETURN RMSSUC(); ‘ 
3 2 726 END; ! end of routine MOVE 


3C BB 00000 MOVE: PUSHR #*M<R2,R3,R4,R5> : 36 6 
38 Ab D5 0000 TSTL  56(XABS : 26 
1c 1 00 BEQL es : 
50 38 AG MOVL 6(xAB) KEYNAM + 2703 
60 2 OA AA ¢ 0 PROBER 10(IFABS, #32, (KEYNAM) : 2709 
0c 1 BNEQ I$ : 
9A 0001 2 » 12¢F AB) : 


sss 


07 


3; Routine Size: 


MOVE 
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5 
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ec) COA 


71 bytes, 
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tae . READ _PROLOGUE 1 ~8ep-19 4 eee RMS. SRCIRMSCREATE .B32; 9° 29) 
; ? 7 1 XSBTTL ‘READ PROLOGUE' 
3 5 f 3 ! ROUTINE READ_PROLOGUE ( VBN ) : RLSRW_PROLOG = 
: $6 yy i’ 
; 6 rs | READ_PROLOGUE 
; 691 , 4 ; This routine locks the VBN. 
; £38 736 1 | CALLING SEQUENCE: 
> 2694 737 13 READ_PROLOGUE ( VBN ) 
: 2695 7 : 1 
; 696 739 1 | INPUT PARAMETERS: 
3; 269 740 1! VBN - VBN to lock 
+ 2698 741 1 
; 699 742 1! IMPLICIT INPUTS: 
+ $700 re yi oun 
: 270 745 1 | OUTPUT PARAMETERS: 
we | ne 
> 2705 748 1 | IMPLICIT OUTPUTS: 
3 re 4 } } none 
: 2708 731 1! ROUTINE VALUE: 
3; 2709 7 ¢ 1! Ll error 
; 2710 753 1! SUC = success 
: 2711 754 1 
; re 755 1! SIDE EFFECTS: 
: 271 736 1! none 
: 9714 757 15 
1 oie 
> 271 760 BEGIN 
3; 2718 761 
> 2719 768 EXTERNAL REGISTER 
> 2720 76 COMMON_FAB_STR, 
; ? 1 76% R_BDB_STR; 
: 27 5 766 GLOBAL REGISTER 
3 ? 4 r6 R_BKT_ADDR; 
: ? 6 e ? RETURN_ON_ERROR ( RMSCACHE (.VBN, 512, CSHSM_NOREAD OR CSHSM_LOCK), 
; , 8 P ds IF FAB CFABSL_STV] EQL 0 
: 27 P 277 FAB CFABSL_STV) = .STATUS OR 1°16; 
: ? 1 P 72% STATUS = RMSERR (RPL) 
: 27 5 77 . 
3; 27 77 RETURN RMSSUC(); 
+ 3735 778 
: 5736 779 END; 


wet 


3; Routine Size: 


50 bytes, 


READ_PROLOGUE 

2c 
5 
32 218 BF 
1 10 A 
000000006 : 

5 
oc A 
oc a8 50 00010000 BF 
C106 BF 
50 1 
C 


Routine Base: RMSRMSMISC 


9 
1B-Sen-1984 01:59:47 


BB 00000 READ_PROLOGUE: 
PUSHR 


go 00 MOVL 
5 0 MOVZWL 
Dd 3 A MOVL 
1 E JSB 
E 14 BLBS 
Dd 17 TSTL 
1 1A BNEQ 
i BISL3 
f 88 1$: MOVZWL 
A BRB 
DO 0002C 2$: MOVL 
BA O002F 5$: POPR 
05 00031 RSB 
OCcF9 


ne Bliss-32 V4.0-74 
RMS .SRCIRMSCREATE .B32; 


weMcR2 ,R3,R5> 
#5, R 

#512, R2 

V 

RMSCACHE 

STATUS 2$ 

1ecFAB) 

#65536, STATUS, 12(FAB) 
#4941 * STATUS 


“i, ry! 
#*M<R2,R3,R5> 


2777 
2779 
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vOu-000 REPROBE “4 atts 7 Motte RMS ..SRCIRMSCREATE .B32; 29° (23) 


Probe current XAB for read and write. 


IFNORD ( REF ($BY TEOF FSET (KABSL_ NXT) + SFIELDWIDTH(XABSL_NXT)/8), 
iFAB CiEBsB. mo El, 
(FAB CFABSL .XAB; 
RETURN SnSERR CKAB) 3 ); 
IF .XAB CXAB$B_COD] EQL XABSC_ALL 
IFNOWRT ( REE (XABSC AL ALLLEN} .XAB 
}'=".XAB; 
RETURN anctne (XAB)) ); 


IF .XAB CXAB$B_COD) EQL XABSC_KEY 
THEN 


—QODNOUES WO OONAUESWN (“OS OONOUS 


“ 
co 
oO 
vv 


IFAB CIFBSB_MODE), 


SANS 
oN 
wn—o 
vuvuv0vD 
SVVVVVVVVVVS Vo cocoosoeoooeceOoooos 
109 Cd Cd 0D CD Cd Cd Cd Cd Cd Cd Cd Cd CD Cd CD CO 


ow 


; 27 780 1 ZSBTTL ‘REPROBE' 
$ 178 f 1 ! ROUTINE REPROBE : RLSCHK_AND_REPROBE = 
3: 2741 7 : 1 !e¢ 
; rg 784 1! 
3: 274 785 1 ! REPROBE 
§ re § : This routine reprobes current XAB for read and write. 
3 6 788 1 ! CALLING SEQUENCE: 
3; 274 789 1! REPROBE () 
3 2748 790 1! 
3: 2749 791 +1 =! INPUT PARAMETERS: 
; 2750 792 1! none 
3; 2751 795 1! 
3: 27 ¢ 794 1°! IMPLICIT INPUTS: 
3: 275 795 1! XAB - address of user XAB 
; ree P38 1! IFAB address 
3; 2755 797 1! FAB address 
; £38 798 1! 
3; 275 799 1 =! OUTPUT PARAMETERS: 
: 2758 800 1! none 
3; 2759 801 1! 
; 2760 802 1 ! IMPLICIT OUTPUTS: 
: 2761 803 1! none 
3; 276 8046 1! 
3; 276 805 1 ! ROUTINE VALUE: 
3: 2764 806 1! Success or XAB error code 
3; 2765 807 1! 
3; 2766 808 1 ! SIDE EFFECTS: 
3; 2767 809 1! none 
3; 2768 1 1! 
: 2769 1 1 !-- 
; 2770 1 1 
3; 2771 1 BEGIN 
3s er? 1 
s a7 1 exten, REGISTER 
: 2774 1 R_IFAB_STR, 
3; 2775 1 R- FAB_ STR 
3: 2776 : XAB = REF BBLOCK; 
: : 
3 c 
| 


eats vi 9: etd AX=11 Bliss-32 V4.0-74 Page 90 


; Routine Size: 63 bytes, Routine Base: RMSRMSMISC + 0D2B 


; 2812 2854 1 


04 REPROBE 12-8 RMS. SRCIRMSCREATE.B32; 
; 736 Hs BEGIN : 
; ie 4 33 ies -XAB CXABSB_BLN] GEQ XABSC_KEYLEN : 
: ev P 2841 IFNOWRT ( TREE (XABSC KE KEYLEN), .XAB, IFAB CIFBSB_MODE), : 
3 2800 P 4g V] = .XAB; ; 
3 $1 4? 4 1s RETURN att a (KAB) 5 ) : 
; 280 P 2845 IFNOWRT ( TREE (XARSC KEYLEN V2), ieee IFAB CIFB$B_MODE), 3 
: 2805 84 RETURN aeetRS (XAB) ) 7 3 
3 B06 984 3 
; 280 G END; F 
3; 2808 850 3 
; 2809 851 RETURN RMSSUC(); : 
3; 2810 S26 3 
: 2811 853 1 END; 3 
66 08 OA AA OC 00000 REPROBE:PROBER 10(IFAB), #8, (XAB) ; 2827 3 
2A 13 00005 BEQL 4$ : 3 
14 66 91 00007 CMPB (XAB), #20 ; 
07 12 OOO0A BNEQ 1$ F 
66 20 0A AA OD 0000C PROBEW 10(IFAB), #32, (XAB) 3 
1E 13 00011 BEQL 4$ 3 
15 66 91 00013 1$ CMPB (XAB), #21 : 
23 12 00016 BNEQ 5$ 3 
sc) OOF 01 A6 91 00018 CMPB 1(XAB), #76 $ 
09 1F 0001D LSSUs_ 2$ 3 
66 004C = BF OA AA OD OOO1F PROBEW 10(IFAB), #76, (XAB) 2843 : 
07 11 00026 RB 3$ 3 
66 0040 =8F 0A AA OD 00028 33: PROBEW 10(IFAB), #64, (XAB) 2847 : 
OA 12 OO02F 3$: NEQ 3 
0c Ag 56 DO 00031 4$: OVL XAB jettne) 3 
50 870C BF 3C 00035 MOVZWL #34 dees : 
05 OO03A $B 3 
50 01 DO 00038 5$: MOVL ~ RO 2851 : 
05 0003E RSB 2853 : 


PTR TeTe rere rere rerererererererererere | 
my Nm MH MR 
o oo ao oo 
WwWwiWw %& 
ou WwW Oo 
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voe= URITE_KEY_DESC eee ra oe Pg I ee —F 


3 4 5 1 2SBTTL ‘WRITE_KEY_DESC’ | ‘ 
; \? 8 ROUTINE WRITE_REY_BESC : RLSWRITE_KEY_DESC = | ; 
: i$ 28 1 e+ : 
3 18 , ae Se 3 
: 281 60 1 ! WRITE_KEY_DESC ; 
: : Y Ve ! This routine fills in the data of the prologue key descriptor. : 
; 28 g 865 1 ! CALLING SEQUENCE: 3 
; 28 864 1! WRITE_KEY_DESC 3 
3; 2824 865 1! $ 
3; 2825 ry 1 ! INPUT PARAMETERS: ; 
3: 2826 6f 1! None : 
3; 2827 868 1! $ 
; 2828 869 1 ! IMPLICIT INPUTS: 3 
3 th 870 1! IFAB address 3 
; 2830 871 1! FAB address 3 
: 583 $873 | | ht > slarese ef hey dvecript 
3 ! - address of key descriptor 3 
$835 5874 1 | . : 
3 te 2875 1 ! IMPLICIT OUTPUTS: $ 
3; 2835 $e59 1! None 3 
; 2836 877 1! 3 
3; 2837 2878 1 ! ROUTINE VALUE: : 
3; 2838 2879 1! SUC = success 3 
3; 2839 2880 1! KNM = error from routine MOVE when keyname probing fails F 
; sere 2881 1! : 
3s 284. B82 61 «| SIDE EFFECTS: 3 
$ sees e885 ¥ 3 Some fields in user's XAB are written. : 
: 284 2854 : 3 
3; 2844 2885 1 i-- 3 
3; 2845 2886 1 3 
3; 2846 2887 2 BEGIN 3 
3; 2847 2888 2 $ 
3; 2848 2889 2 EXTERNAL REGISTER ; 
; 2849 2890 2 R_FAB_STR s 
; 2850 2891 2 R-1FAB_STR, : 
; 2851 2892 2 BOF = 7: REF BBLOCK, F 
; sees 2893 2 XAB = 6: REF BBLOCK; 3 
3 ope 2894 § ‘ 
3 Bee 344 CLEAR ( .BUF, KEYSC_BLN + KEYSC_SPARE ); 3 
3: 2856 2897 ! Fill in key descriptor in prologue VBN ; 
s See 3 key descriptor. 3 
° . | Py 
3: 2859 900 2 BUF CKEY$B_IANUM) = .XAB CXAB$B_IAN]; | : 
: 2860 901 BUF CKEYSB_LANUM] = .XAB [XABSB_LAN); | ; 
3 oe) 3 BUF CKEY$B_DANUM) = .XAB CXABSB_DANJ; 3 
; bes ope This is needed to conform with RMS_11 clug. | : 
: 2865 906 (BUF CKEYS$L_ROOTVBN <0. 2 = .XAB [XABS$B_DAN); : 
3 2866 907 (BUF CKEY$L_ROOTVBN))< > = .XAB CXABSB_IANJ: 3 
; 2867 908 (BUF _CKEYSL“ROOTVBN])<16, 8> = .XAB CXABSB_LAN); | ; 
3 39 444 BUF CKEYSB_BATATYPE) = .XAB CXABSB_DTPJ; : 
s 0 911 ! Get the bucket size calculated for the given area number | : 

| 

| 

| 

j 


$$$ > co 


— — . — - —~ 
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RMSCREATE 
v04- 


; 2871 91 ! 3 
; 287 91 : 
; 287 914 BEGIN 3 
3 2874 915 ; 
; 15 318 LOCAL 3 
3 af8 4, BKT_SIZE; : 
; 2878 315 RETURN ON ERROR ( GET_BKS ( .XAB CXABSB_IANJ; BKT_SIZE ) ); | : 
3 2879 920 BUF CKEYS$B8_IDXBKTSZ) = .BKT_SIZE; : 
; 2880 921 RETURN_ON_ERROR ( GET_BKS (~.XAB CXABSB_DANJ; BKT_SIZE ) ); 3 
; 2881 9 ¢ BUF CKEYSB_DATBKTSZ] = .BKT_SIZE; k | : 
: oe 2 ? ND; ! end of BKT_SIZE definition : 
; 2884 925 BEGIN F4 
g $65? 926 3 
; 2886 927 LOCAL 3 
3; 2887 928 KEYSIZE, F 
>; 2888 2929 MINREC, 3 
3; 2889 930 SEGS; 3 
; 2890 931 3 
; 2891 236 GET_KEY_PARMS ( ;KEYSIZE, MINREC, SEGS ); : 
: 289 293 3 
: 289 2934 BUF CKEYSB_SEGMENTS] = .SEGS; 3 
> 2894 2935 BUF CKEYSB-NULLCHAR] = .XAB CXABS$B_NUL); ; 
; 2895 $338 ; BUF CKEYSB_KEYSZ] = .KEYSIZE; : 
3: 2896 937 BUF CKEYSB_KEYREF] = .XAB CXABSB_REFIJ; $ 
3; 2897 2938 3 BUF CKEYSW_MINRECSZ] = .MINREC; 3 
; 2898 2939 3 $ 
3; 2899 2940 ; ! Now we must make intelligent decisions about the compression F 
; 2900 Sees ! bits for the keys. If it is not a pig file, then we want F 
: 2901 aeG ; ' to turn off all compression, since default is zero. F 
; O06 294 ! 3 
; 290 2944 3 
3 2904 2945 IF .IFAB CIFBSB_PLG_VER] LSSU PLGSC_VER_3 : 
; 2905 2946 THEN 3 
3; 2906 2947 4 BEGIN 3 
; 2907 2948 4 XAB CXABSV_KEY_NCMPR] = 1; 3 
; 2908 2949 4 XAB CXABSVIIDX-NCMPRJ = 1; 3 
3: 2909 2950 4 ; 
3; 2910 Sees 4 IF .XAB CXABSB_REFJ EQL 0 3 
; $313 826 4 : 
; 92 2953 4 XAB CXABSV_DAT_NCMPR] = 1; ; 
: 291 2954 4 D : 
3 2914 TH 4 F 
3; 2915 956 4 ! In a prologue 3 file, we decide if the compression should : 
: a 957 4 ' be turned off depending on the key size and type. | $ 
3: 291 958 4 ! 3 
3; 2918 959 3 ELSE : 
3 2919 960 4 BEGIN 3 
5 $359 soe) 4 ; : 3 
+ 2921 962 4 ! If the key is less than 6 bytes, or it is not a string key, : 
: 986 9635 4 ' do not allow compression. : 
3; 29 964 4 ‘ : 
3 2924 965 4 3 
3; 2925 966 4 IF pevsize LSS 6 : 
3; 2926 967 4 OR .XAB CXABSB_DTP] NEQ XABSC_STG : 
3: 2927 968 4 3 

| 

| 

| 


] 
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BUF NOT .XAB CXABSV_KEY_NCMPR); 
IF .XAB CXABSB_REF] EQL 0 
ms CKEYSV_REC_COMPR] = NOT .XAB CXABSV_DAT_NCMPR] 


" § 969 BEGIN 3 
9 970 XAB pt Hs ar tt 21; 3 
930 971 XAB CXABSVIIDXINCMPR = 1; ; 
1 36 END; : 
4 y 4 ! If the data record left after the primary ke 3 
935 976 ; 
9 : 97 ; 
.] 978 IF .XAB CXABSB_REF) EQL 0 : 
938 979 THEN : 
939 980 : 
940 981 IF .1FAB CIFBSW_MRSJ NEQ 0 : 
Be) 3 AND (.1FAB CIFBSW_MRS] = .KEYSIZE<0,16>) LSS 11 : 
308 984 XAB CXABSV_DAT_NCMPR] = 1; ; 
9 + +4 END; : 

2987 ! Store flag values. First those that are valid for all keys, and ; 

sone then depending on the key of reference. : 

2990 BUF CKEYSV_DUPKEYS] = .XAB CXABSV_DUP; : 

991 BUF CKEYSV_INITIDX] = 1; 3 

93 BUF CKEYS$V_IDX_COMPR] . NOT .XAB CXABSV_IDX_NCMPR]J; ‘ 


BEGIN 
UF CKEY$V_NULKEYS) 
BUF KEYSV~CHGKEYSJ 


= .XAB CXABSV_NUL]; 
= :XAB CXABSV~CHG); 


2 b FSSSSSSSISssSssseeeere 
DAAAAA IIIT 
VW EWNM “OO DNAUEWN—“ODOODNOUE 
So 
oS 
o 


Move key position / length information 
RETURN_ON_ERROR ( MOVE ( .SEGS ) ); 
END; ! end of KEYSIZE,MINREC,SEGS def 
BUF CKEYSW_IDXFILL] = .XAB CXABSW_IFLI; 
iv ~-BUF CKEYSW_IDXFILLJ EQL 0 
BUF CKEYSW_IDXFILL] = .BUF CKEYSB_IDXBKTSZ2] * 512; 


IF .BUF CKEYSW_IDXFILLJ LSSU 
THE WORDMASK( .BUF CKEYSB_IDXBKTSZ) * ( 512/2 ) ) 


“BUF CKEYSW_IDXFILL] = .BUF CKEYSB_IDXBKTSZ] * ( 512/2 ); 
BUF CKEYSW_DATFILL] = .xXAB CXABSW_DFLI; 
IF .BUF CKEYSW_DATFILL] EQL 0 | 
BUF CKEYS$W_DATFILL] = .BUF CKEYSB_DATBKTSZ] * 512; 


: 
: 
: 


Sse 
MFWN—O”O 


is 
extracted is less than 11 bytes, do not Zulow data compression. 


oovoo 


974 


Oo 
oO 
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IF .BUF CKEYSW DATFILLI Lssy 
WORDMASK( .BUF CKEYS$B_DATBKTSZ] * ( 512/2 ) ) 


HEN 
BUF CKEYSW_DATFILLJ = .BUF CKEYSB_DATBKTSZ] * ( 512/2 ); 


Oo 
Sette 


ooo 


aE 


! Set pointers to next key Gover tptors if this is the last key, 
! then pointers should be zero. therwise, use key of reference 
value to find next position. 


c. CXABSB_REF] EQL (.1FAB CIFBSB_NUM_KEYS] - 1) 


BEGIN 
BUF KEYSL _IDXELJ = 0; 
BUF KEYSW-NOFFJ = 0; 


pefleleleleleleleloleleleleleoleloleleleloleololelolojolo) 


DIV BS BS BBE BE EE EA Irrnornoner 


NRO OOBNAVNE WN OO SNOU EW OOONS 


| 
| Ps 
ELSE cin ; 
BUF CREVSL_IDXFL] = (.XAB CXABSB_REF] + 5) / 5 + 1; : 
; 4 BUF CKEYSW-NOFF) = ( ( .XAB CXABSB_REF] ) MOD 5 ) : 
3 * T KEYSC_BLN + KEYSC_SPARE ); 3 
007 ; END; : 
st4 3 RETURN RMSSUC(); ' return success : 
011 3 1 END; : 
OC BB 00000 WRITE_KEY DESC: : 
POSHR #*M<R2,R3> : 2856 3 
7E 66 8F 9A 00002 MOVZBL #102, -(SP) : 2895 ; 
57 DD 00006 PUSHL BUF F ; 
FE27 30 00008 BSBW CLEAR ; : 
SE 4 CO 00008 ADDL2 #4, SP : : 
06 A? 08 A6 BO 0000 MOVW 8 (XAB), 6(BUF) : 2900 : 
08 Az 0A Ab 90 0001 MOVB  10(XABS, 8(BUF) : 2902 ; 
OC A? 0A Ab 90 0001 MOVB  10(XAB). 12(BUF) : 2906 : 
OD AZ 08 A6 80 001D MOVW  8(XAB), 13(BUF) : 2907 : 
11. A? 13 A6 90 000 é MOVB  19(XABS, 17(BUF) : 2909 ; 
6E 08 Ab 2, 00 MOVZBL 8(XAB), (SP) : 2919 : 
FEAG 30 00028 BSBW GET_BKS : : 
5E 4 CO 0002E ADDL2 #4, SP 3 3 
0 0 £9 00031 BLBC STATUS, 1$ : ; 
OA A 1 90 000 MOVE  ®BKT SIZE, 10(BUF) : 2920 : 
7E OA A 9A 00 MOVZBL 10(RAB), (SP) > 2921 3 
FE9 0 003¢ BSBW GET _BKS : : 
5 04 C 0 F ADDL2 4#4,7SP : : 
0 0 8 00042 1$: BLBS STATUS, 2$ : : 
014 1 4 BRw 17$ 3 3 
0B «AT 51 48 2%: MOVB BKT_SIZE, 11(BUF) : 29 : : 
FEBD 4C BSBW GET KEY _PARMS : 29 3 
12 A? O04F MOVB SECS 18(BUF ) > 2934 : 
13 AZ 15 Ab 90 00053 MOVB (xXAB), 19(BUF) > 2935 : 
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WRITE _KEY_DESC 
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=zo@ VOT FOYVOVYVATE dC OtEwwstzaAc 
oh os oy A AWM 
~N ~ w w or 
- - - - rr 
FFT TTNNANUN OOO OOP-PF-PF-P- COCR 


uh sue eth meh seh meth seth meth see seh seh seh seh eth eee pet eth cet se seh seh eh eh cee see seh 
pole lololololelololololololo) 

Oooo0oo 

OwOv ane We WO Pr-O Te COOWKE EC OmNo«aMN 
OO @O- OC 2OPF- O-- OC Ow OOK OVVOOrRF- LODO 


—h 0 £P- eP DOM LOOCLP-P-FMOMNOOK Mun vU 
NELO AD LOOOMN OM OOVO IVNILOO tT LOOWOO 


~ en 
- on 


04 
0066 


COCOr. COOWOO 
MMM DMNA 


1 
1 
1 
1 
1 
0 
0 
08 


60 
51 
A6 
0 
50 
? 


17 
04 


Routine Base: RMSRMSMISC + OD6A 


395 bytes, 


qa 
N 
- 
”“ 
uv 
Cc 
os 
2 
a 
oe 


SEES 


; O13 3 
3 1 4 
: $016 O56 
: 301 

+ 
; 3020 0 
; \ 1 6d 
; 30 4 be 
3; 3026 064 
: 5 5 be? 
; 30 3 be? 
; 3028 pes 
3 44 06 
; 30350 70 
; 3031 71 
3 O36 Ore 
3 Be? 07 
; 30 074 
s tH 075 
; 30 07 
3; 3037 07 
; 3038 07 
3; 3039 07 
3; 3040 080 
3; 3041 081 
3 ek oes 
3; 304 08 
3; 35044 084 
3; 3045 085 
3 pes O86 
3; 304 08 
3; 3048 088 
3; 3049 089 
3; 3050 090 
3; 3051 091 
3 b2¢ 09 
; 305 09 
3; 3054 094 
; 3055 095 
037 $99 
; 3058 098 
; 3059 099 


SELESRENSS 


SEesEF 


vv 


1 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


H 10 
RMSCREATE 16-Sep-1984 01:39:47 AX-11 Bliss-32 V4.0-74 
vOe-000 WRITE PROLOGUE 1235-1 $8e My:0t 18 RMS .SRC RM CREAYE “83: 


ZSBTTL ‘WRITE PROLOGUE’ 
1 ROUTINE WRITE_PROLOGUE : RLSRW_PROLOG = 


64 


WRITE _PROLOGUE 


This routine recalculates the check sum, sets the buffer dirty, and 
writes it out. 


CALLING SEQUENCE: 
WRI TE_PROLOGUE () 


INPUT PARAMETERS: 
none 


IMPLICIT INPUTS: 
BDB - address of BDB describing buffer containing prologue VBN 


OUTPUT PARAMETERS: 
none 


IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 


WPL error 
Success code 


: SIDE EFFECTS: 


BEGIN 
EXTERNAL REGISTER 
COMMON _FAB_STR, 
R_BDB_STR; 
RMSMAKSUM(.8DB_CBDBSL_ADDR)); 
BDB (BDB$V_VAL ; 
BDB CBDB$V~DRT) = 1; 
BEGIN 


LOCAL 
FLAGS; 


FLAGS = RLSSM_WRT_THRU; 
A at CBDB$L_VBN) EQL 1 
FLAGS = .FLAGS OR RLSSM_KEEP_LOCK; 
RETURN_ON_ERROR (RMSRELEASE(.FLAGS), 
BEGIN™ 


Page 48 


. —s ™ 5 Snr 


RMSCREATE 15-50 -1984 AX=-11 Bliss- 4 
vou-050 WRITE PROLOGUE -38b71$be 9}: a AMS. SRC RM CREATE: 83081 Page oF 


3 70 P 311 IF .FAB CFABSL_STV) EQL 0 

: 3071 P 311 THEN 

; ie P 311 FAB CFABSL_STV] ; »STATUS OR 1°16; 

: Biz P aE ae = RMSERR (WPL) 

; Boe a ND; ! end of FLAGS declaration 
: O77 113 RETURN RMSSUC(); 

3 78 8 

; 3079 11 END; 


2C BB 00000 WRITE_PROLOGUE: 
PUSHR 


RMSRMSMI SC 3893 NOVEC,NOWRT, RD, EXE,NOSHR, GBL, REL, CON, PIC,ALIGN(2) 


| ° 

Py 

grmcR2 R3,R5> : 3054 ; 

55 18 Ad DO 00002 MOVL DBS, R5 + 3093 ; 

000000006 if 0006 JSB Sessnes KSUM ; : 

OA Ab 88 0000 BISB2 #3, 10(BDB) : 3095 : 

53 DO 0001 MOVL FLAGS ; 3102 ; 

01 1¢ =A&é D1 0001 CMPL ‘ (BDB), #1 : 3104 F 

3 fF 001 BNEQ § : ; 

53 4 88 00019 BISB2 #4, FLAGS : 3106 ; 

000000006 16 0001C 1$ JSB RMSRELEASE : 3114 : 

5 E8 000 BLBS STATUS, 3$ : : 

AB D5 000 TSTL  12(¢FABS : : 

09 iF 00028 BNEQ 2$ ; : 

oc AB 50 00010000 8F ¢ 999 A BISL3 #65536, STATUS, 12(F AB) ; : 

50 Clic. = BF. 3:00 ; 2s: MOVZWL #49436, STATUS ; F 

3 71 999 BRB 4$ : : 

50 1 DO 0003A 38: MOVL #1, RO : 3117 ; 

C BA it D 4$: POPR #-ACR2.R3LRS> ; 3119 3 

05 0003F RSB : : 

; Routine Size: 64 bytes, Routine Base: RMSRMSMISC + OEFS 3 
; 3080 130 1 3 
; 3081 1 1 END g 
; 308 133 1 5 
; 308 0 ELUDOM : 
| 6 

| ; 

; PSECT SUMMARY | : 
$ Name Bytes Attributes | é 
- . 
| 


—— ——_ ---_ _ — —-y 


voLs0n0 WRITE_PROLOGUE 1b-be0-1984 Pb:59:18 «HAMS SaBdaaScaeavesosoes Page 89 


Library Statistics 


; wocceee= Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:CRMS.OBJIRMS.L32;1 3109 248 7 154 00:00.4 
; Information: 1 
3; Warnings: 
3; Errors: 
; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:RM3CREATE/OBJ=OBJ$:RM3CREATE MSRC$:RM3CREATE/UPDATE=(ENHS$:RMSCREATE) 
; Size: 3893 ¢ ge + 0 data bytes 
un Time 1 7 


Lines/CPU Min: 

"cme A Magda 1 
ee Used: 458 pages 

Compi ation Complete 


pkey Time: i a 
119 
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